(char-db-feature-domains): Add `cdp'.

(insert-char-attributes): Don't display `<-same' when running with
non-readable mode.

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 84e2313..9f60006 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 misc unknown))
+       jis-x0213 cdp misc unknown))
 
 (defvar char-db-ignored-attributes nil)
 
@@ -914,6 +914,7 @@
                      (not (string-match "\\*sources$" (symbol-name name)))
                      (or (eq name '<-identical)
                          (string-match "^->simplified" (symbol-name name))
+                         (string-match "^<-same" (symbol-name name))
                          (string-match "^->vulgar" (symbol-name name))
                          (string-match "^->wrong" (symbol-name name))
                          ))