projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dfceead
)
(split-char): fixed.
author
morioka
<morioka>
Mon, 8 Jun 1998 12:52:37 +0000
(12:52 +0000)
committer
morioka
<morioka>
Mon, 8 Jun 1998 12:52:37 +0000
(12:52 +0000)
emu-mule.el
patch
|
blob
|
history
diff --git
a/emu-mule.el
b/emu-mule.el
index
cce6a84
..
9821aec
100644
(file)
--- 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."
(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)
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)
))
)
(cons (char-charset character) dest)
))