Add missing mappings between JIS X 0213 and UCS.

[chise/xemacs-chise.git-] / 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 8e17440..202670a 100644 (file)
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -74,11 +74,6 @@
 (defvar char-db-ignored-attributes nil)
 
 ;;;###autoload
-(defun char-ref-p (obj)
-  (and (consp obj)
-       (keywordp (car obj))))
-
-;;;###autoload
 (defun char-ref= (cr1 cr2)
   (cond ((char-ref-p cr1)
         (if (char-ref-p cr2)