tm 7.68.

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

diff --git a/emu-x20.el b/emu-x20.el
index a4cb1fa..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.11 1996/05/27 14:09:18 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).
@@ -66,6 +66,19 @@
 
 (defalias 'charset-description 'charset-doc-string)
 
+(defun find-charset-string (string)
+  "Return a list of charsets in the STRING except ascii.
+\[emu-x20.el; Mule emulating function]"
+  (delq 'ascii (charsets-in-string string))
+  )
+
+(defun find-charset-region (start end)
+  "Return a list of charsets except ascii
+in the region between START and END.
+\[emu-x20.el; Mule emulating function]"
+  (delq 'ascii (charsets-in-region start end))
+  )
+
 ;;; @@ for Mule emulation
 ;;;
 
@@ -105,7 +118,7 @@
 (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
@@ -151,6 +164,11 @@
 
 (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]"
@@ -198,19 +216,6 @@ Optional non-nil arg START-COLUMN specifies the starting column.
   (substring str start-column width)
   )
 
-(defun find-charset-string (string)
-  "Return a list of charsets in the STRING except ascii.
-\[emu-x20.el; Mule emulating function]"
-  (delq 'ascii (charsets-in-string string))
-  )
-
-(defun find-charset-region (start end)
-  "Return a list of charsets except ascii
-in the region between START and END.
-\[emu-x20.el; Mule emulating function]"
-  (delq 'ascii (charsets-in-region start end))
-  )
-
 
 ;;; @ end
 ;;;