From: tomo <tomo>
Date: Thu, 9 Jan 2003 02:58:49 +0000 (+0000)
Subject: (char-db-coded-charset-priority-list): Prefer `chinese-big5-cdp' to
X-Git-Tag: r21-4-10-utf-2000-0_20-5~289
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=bee04ad1f352fffb09826b01c2fbd95caabb1871;p=chise%2Fxemacs-chise.git

(char-db-coded-charset-priority-list): Prefer `chinese-big5-cdp' to
`ideograph-cbeta' and `china3-jef'.
(insert-char-attributes): Format `name*' like `name'.
---

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"