From: morioka <morioka>
Date: Mon, 8 Jun 1998 12:52:37 +0000 (+0000)
Subject: (split-char): fixed.
X-Git-Tag: apel-8_15~12
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=59c288279dee5ab19ba9ad042c321fa0556d6ced;p=elisp%2Fapel.git

(split-char): fixed.
---

diff --git a/emu-mule.el b/emu-mule.el
index cce6a84..9821aec 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -363,12 +363,11 @@ but the contents viewed as characters do change.
 
 (defun split-char (character)
   "Return list of charset and one or two position-codes of CHARACTER."
-  (let ((len (char-bytes character))
-	(i 0)
+  (let ((p (1- (char-bytes character)))
 	dest)
-    (while (< i len)
-      (setq dest (cons (char-component character i) dest)
-	    i (1+ i))
+    (while (>= p 1)
+      (setq dest (cons (- (char-component character p) 128) dest)
+	    p (1- p))
       )
     (cons (char-charset character) dest)
     ))