rearrangement.

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

diff --git a/emu-mule.el b/emu-mule.el
index e3d1f88..9821aec 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -156,7 +156,7 @@ automatic uncompression, etc.
 Namely this function ensures that only format decoding and character
 code conversion will not take place."
   (let (mc-flag
-       (file-coding-system *noconv*))
+       (file-coding-system-for-read *noconv*))
     (insert-file-contents filename visit beg end replace)
     ))
 
@@ -361,6 +361,17 @@ but the contents viewed as characters do change.
 
 (defalias 'char-charset 'char-leading-char)
 
+(defun split-char (character)
+  "Return list of charset and one or two position-codes of CHARACTER."
+  (let ((p (1- (char-bytes character)))
+       dest)
+    (while (>= p 1)
+      (setq dest (cons (- (char-component character p) 128) dest)
+           p (1- p))
+      )
+    (cons (char-charset character) dest)
+    ))
+
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
   (` (+ (, index) (char-bytes (, char)))))