From 59c288279dee5ab19ba9ad042c321fa0556d6ced Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 8 Jun 1998 12:52:37 +0000 Subject: [PATCH] (split-char): fixed. --- emu-mule.el | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) 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) )) -- 1.7.10.4