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:
f7f6831
)
(split-char): New function.
author
morioka
<morioka>
Fri, 5 Jun 1998 14:13:28 +0000
(14:13 +0000)
committer
morioka
<morioka>
Fri, 5 Jun 1998 14:13:28 +0000
(14:13 +0000)
emu-latin1.el
patch
|
blob
|
history
emu-mule.el
patch
|
blob
|
history
diff --git
a/emu-latin1.el
b/emu-latin1.el
index
0422a9c
..
e47ff64
100644
(file)
--- a/
emu-latin1.el
+++ b/
emu-latin1.el
@@
-248,6
+248,11
@@
find-file-hooks, etc.
"Return number of columns a CHAR occupies when displayed."
1)
"Return number of columns a CHAR occupies when displayed."
1)
+(defun split-char (character)
+ "Return list of charset and one or two position-codes of CHARACTER."
+ (cons (char-charset character) character)
+ )
+
(defalias 'char-length 'char-bytes)
(defmacro char-next-index (char index)
(defalias 'char-length 'char-bytes)
(defmacro char-next-index (char index)
diff --git
a/emu-mule.el
b/emu-mule.el
index
e3d1f88
..
8384501
100644
(file)
--- a/
emu-mule.el
+++ b/
emu-mule.el
@@
-361,6
+361,18
@@
but the contents viewed as characters do change.
(defalias 'char-charset 'char-leading-char)
(defalias 'char-charset 'char-leading-char)
+(defun split-char (character)
+ "Return list of charset and one or two position-codes of CHARACTER."
+ (let ((len (char-bytes character))
+ (i 0)
+ dest)
+ (while (< i len)
+ (setq dest (cons (char-component character i) dest)
+ i (1+ i))
+ )
+ (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)))))
(defmacro char-next-index (char index)
"Return index of character succeeding CHAR whose index is INDEX."
(` (+ (, index) (char-bytes (, char)))))