projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(char-db-coded-charset-priority-list): Add `=>ucs@jis'.
[chise/xemacs-chise.git.1]
/
lisp
/
utf-2000
/
char-db-util.el
diff --git
a/lisp/utf-2000/char-db-util.el
b/lisp/utf-2000/char-db-util.el
index
584bfa7
..
07f89e7
100644
(file)
--- a/
lisp/utf-2000/char-db-util.el
+++ b/
lisp/utf-2000/char-db-util.el
@@
-173,6
+173,7
@@
==>ucs@bucs
=>ucs@iso
=>ucs@unicode
==>ucs@bucs
=>ucs@iso
=>ucs@unicode
+ =>ucs@jis
=>ucs@cns
=>>ucs@unicode
=>>ucs@jis
=>ucs@cns
=>>ucs@unicode
=>>ucs@jis
@@
-645,7
+646,7
@@
name value (decode-char '=ucs value)
line-breaking))
(setq attributes (delq name attributes))))
name value (decode-char '=ucs value)
line-breaking))
(setq attributes (delq name attributes))))
- (dolist (name '(=>ucs@gb =>ucs@jis =>ucs@ks =>ucs@big5))
+ (dolist (name '(=>ucs@gb =>ucs@ks =>ucs@big5))
(when (and (memq name attributes)
(setq value (get-char-attribute char name)))
(insert (format "(%-18s . #x%04X)\t; %c%s"
(when (and (memq name attributes)
(setq value (get-char-attribute char name)))
(insert (format "(%-18s . #x%04X)\t; %c%s"