From bee04ad1f352fffb09826b01c2fbd95caabb1871 Mon Sep 17 00:00:00 2001 From: tomo Date: Thu, 9 Jan 2003 02:58:49 +0000 Subject: [PATCH] (char-db-coded-charset-priority-list): Prefer `chinese-big5-cdp' to `ideograph-cbeta' and `china3-jef'. (insert-char-attributes): Format `name*' like `name'. --- lisp/utf-2000/char-db-util.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el index d963227..76b9e9b 100644 --- a/lisp/utf-2000/char-db-util.el +++ b/lisp/utf-2000/char-db-util.el @@ -133,6 +133,8 @@ arabic-digit arabic-1-column arabic-2-column))) + ((string-match "^ideograph-cbeta" (symbol-name (car rest)))) + ((string-match "^china3-jef" (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) @@ -141,7 +143,8 @@ (setq dest (cons (car rest) dest))))) (setq rest (cdr rest))) (append (sort dest #'char-attribute-name<) - '(chinese-big5-cdp chinese-big5-eten chinese-big5)))) + '(chinese-big5-cdp ideograph-cbeta china3-jef + chinese-big5-eten chinese-big5)))) (defun char-db-make-char-spec (char) (let (ret char-spec) @@ -436,6 +439,15 @@ value line-breaking)) (setq attributes (delq 'name attributes)) ) + (when (and (memq 'name* attributes) + (setq value (get-char-attribute char 'name*))) + (insert (format + (if (> (+ (current-column) (length value)) 48) + "(name* . %S)%s" + "(name* . %S)%s") + value line-breaking)) + (setq attributes (delq 'name* attributes)) + ) (when (and (memq 'script attributes) (setq value (get-char-attribute char 'script))) (insert (format "(script\t\t%s)%s" -- 1.7.10.4