tm 7.68.

[elisp/apel.git] / emu-x20.el

diff --git a/emu-x20.el b/emu-x20.el
index 27c4c8d..142f0e4 100644 (file)
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-x20.el,v 7.12 1996/05/28 06:42:21 morioka Exp $
+;;;    $Id: emu-x20.el,v 7.15 1996/06/10 07:59:23 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -118,7 +118,7 @@ in the region between START and END.
 (defconst *koi8*   nil)
 
 (defvar code-converter-is-broken
-  (and xemacs-beta-version (<= xemacs-beta-version 20)))
+  (and xemacs-beta-version (<= xemacs-beta-version 24)))
 
 (if code-converter-is-broken
 (progn
@@ -164,6 +164,11 @@ in the region between START and END.
 
 (defun char-bytes (chr) 1)
 
+(defun char-length (character)
+  "Return number of elements a CHARACTER occupies in a string or buffer.
+\[emu-x20.el]"
+  1)
+
 (defun char-columns (character)
   "Return number of columns a CHARACTER occupies when displayed.
 \[emu-x20.el]"