(insert-char-attributes): Don't display `->ancient' when running with

[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 14dbb65..b87dea3 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -73,7 +73,7 @@
 
 (defvar char-db-feature-domains
   '(ucs daikanwa cns gt jis jis/alt jis/a jis/b
-       jis-x0213 cdp misc unknown))
+       jis-x0213 cdp shinjigen misc unknown))
 
 (defvar char-db-ignored-attributes nil)
 
@@ -952,6 +952,8 @@
                          (string-match "^<-same" (symbol-name name))
                          (string-match "^->vulgar" (symbol-name name))
                          (string-match "^->wrong" (symbol-name name))
+                         (string-match "^->original" (symbol-name name))
+                         (string-match "^->ancient" (symbol-name name))
                          ))
                 )
                ((or (eq name 'ideographic-structure)