From 4d03689beca8b3077a624b4fbe870a5e47ac171e Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 5 Oct 2010 08:20:13 +0000 Subject: [PATCH] (char-db-coded-charset-priority-list): Add `=>ucs@jis'. (insert-char-attributes): Treat `=>ucs@jis' as a coded-charset. --- lisp/utf-2000/char-db-util.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 584bfa7..07f89e7 100644 --- 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@jis =>ucs@cns =>>ucs@unicode =>>ucs@jis @@ -645,7 +646,7 @@ 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" -- 1.7.10.4