From 94badeccc284269c589a1ef29bc1f2e331c6d374 Mon Sep 17 00:00:00 2001 From: tomo Date: Sun, 8 Sep 2002 11:21:10 +0000 Subject: [PATCH] (char-ref=): Moved to update-cdb.el. (char-spec=): Likewise. --- lisp/utf-2000/char-db-util.el | 23 ----------------------- 1 file changed, 23 deletions(-) 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) -- 1.7.10.4