From 544dce950fba3d56a0d2ce7d6ffd80ca1225694d Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Apr 2002 07:40:40 +0000 Subject: [PATCH] (char-db-coded-charset-priority-list): Modify for new definitions of big5 variants. --- lisp/utf-2000/char-db-util.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index 55b26b9..9ac1fdf 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -160,13 +160,15 @@ arabic-1-column arabic-2-column))) ((string-match "^mojikyo-" (symbol-name (car rest)))) + ((string-match "^chinese-big5" (symbol-name (car rest)))) ((string-match "^ideograph-gt-pj-" (symbol-name (car rest))) (unless (memq 'ideograph-gt dest) (setq dest (cons 'ideograph-gt dest)))) (t (setq dest (cons (car rest) dest))))) (setq rest (cdr rest))) - (sort dest #'char-attribute-name<))) + (append (sort dest #'char-attribute-name<) + '(chinese-big5-cdp chinese-big5-eten chinese-big5)))) (defun char-db-insert-char-spec (char &optional readable column) (unless column -- 1.7.10.4