From: morioka <morioka>
Date: Fri, 5 Jun 1998 12:08:51 +0000 (+0000)
Subject: Move `split-char' check and repair code to emu-x20.el; require 'emu.
X-Git-Tag: apel-8_14~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4fb468dedfa66eec17eb9ddb48ebe44dfa7913ac;p=elisp%2Fapel.git

Move `split-char' check and repair code to emu-x20.el; require 'emu.
---

diff --git a/mule-caesar.el b/mule-caesar.el
index 06020d0..7cf9734 100644
--- a/mule-caesar.el
+++ b/mule-caesar.el
@@ -24,26 +24,7 @@
 
 ;;; Code:
 
-;; avoid bug of XEmacs
-(or (integerp (cdr (split-char ?a)))
-    (defun split-char (char)
-      "Return list of charset and one or two position-codes of CHAR."
-      (let ((charset (char-charset char)))
-	(if (eq charset 'ascii)
-	    (list charset (char-int char))
-	  (let ((i 0)
-		(len (charset-dimension charset))
-		(code (if (integerp char)
-			  char
-			(char-int char)))
-		dest)
-	    (while (< i len)
-	      (setq dest (cons (logand code 127) dest)
-		    code (lsh code -7)
-		    i (1+ i)))
-	    (cons charset dest)
-	    ))))
-    )
+(require 'emu)
 
 (defun mule-caesar-region (start end &optional stride-ascii)
   "Caesar rotation of current region.