From: tomo <tomo>
Date: Sun, 8 Sep 2002 11:21:10 +0000 (+0000)
Subject: (char-ref=): Moved to update-cdb.el.
X-Git-Tag: r21-4-6-utf-2000-0_19-new-case3~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=94badeccc284269c589a1ef29bc1f2e331c6d374;p=chise%2Fxemacs-chise.git.1

(char-ref=): Moved to update-cdb.el.
(char-spec=): Likewise.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index 4a706b7..cea77bc 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -73,29 +73,6 @@
 
 (defvar char-db-ignored-attributes nil)
 
-;;;###autoload
-(defun char-ref= (cr1 cr2)
-  (cond ((char-ref-p cr1)
-	 (if (char-ref-p cr2)
-	     (char-spec= (plist-get cr1 :char)
-			 (plist-get cr2 :char))
-	   (char-spec= (plist-get cr1 :char) cr2)))
-	(t
-	 (char-spec= cr1
-		     (if (char-ref-p cr2)
-			 (plist-get cr2 :char)
-		       cr2)))))
-
-;;;###autoload
-(defun char-spec= (cs1 cs2)
-  (if (characterp cs1)
-      (if (characterp cs2)
-	  (eq cs1 cs2)
-	(eq cs1 (find-char cs2)))
-    (if (characterp cs2)
-	(eq (find-char cs1) cs2)
-      (eq (find-char cs1) (find-char cs2)))))
-
 (defun char-attribute-name< (ka kb)
   (cond
    ((find-charset ka)