From: tomo <tomo>
Date: Mon, 31 May 2010 03:04:54 +0000 (+0000)
Subject: Require `chise-subr'.
X-Git-Tag: chise-base-0_25^20~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=14a312d78d30b533aded25c16208e8a5823be59c;p=chise%2Fxemacs-chise.git-

Require `chise-subr'.
(char-attribute-name<): Moved to chise-subr.el.
---

diff --git a/lisp/utf-2000/char-db-util.el b/lisp/utf-2000/char-db-util.el
index ce8f078..7538f47 100644
--- a/lisp/utf-2000/char-db-util.el
+++ b/lisp/utf-2000/char-db-util.el
@@ -26,6 +26,7 @@
 ;;; Code:
 
 (require 'alist)
+(require 'chise-subr)
 
 (defconst unidata-normative-category-alist
   '(("Lu" letter	uppercase)
@@ -118,74 +119,6 @@
 
 (defvar char-db-ignored-attributes '(ideographic-products))
 
-(defun char-attribute-name< (ka kb)
-  (cond
-   ((eq '->denotational kb)
-    t)
-   ((eq '->subsumptive kb)
-    (not (eq '->denotational ka)))
-   ((eq '->denotational ka)
-    nil)
-   ((eq '->subsumptive ka)
-    nil)
-   ((and (symbolp ka)
-	 (string-match "^->" (symbol-name ka)))
-    (cond ((and (symbolp kb)
-		(string-match "^->" (symbol-name kb)))
-	   (string< (symbol-name ka)
-		    (symbol-name kb))
-	   ))
-    )
-   ((and (symbolp kb)
-	 (string-match "^->" (symbol-name kb)))
-    t)
-   ((and (symbolp ka)
-	 (string-match "^<-" (symbol-name ka)))
-    (cond ((symbolp kb)
-	   (cond ((string-match "^<-" (symbol-name kb))
-		  (string< (symbol-name ka)
-			   (symbol-name kb))
-		  )
-                 ;; ((string-match "^->" (symbol-name kb))
-                 ;;  t)
-		 )))
-    )
-   ((and (symbolp kb)
-	 (string-match "^<-" (symbol-name kb)))
-    t
-    ;; (not (string-match "^->" (symbol-name ka)))
-    )
-   ((find-charset ka)
-    (if (find-charset kb)
-	(let (a-ir b-ir)
-	  (if (setq a-ir (charset-property ka 'iso-ir))
-	      (if (setq b-ir (charset-property kb 'iso-ir))
-		  (cond
-		   ((= a-ir b-ir)
-		    (< (charset-id ka)(charset-id kb))
-		    )
-		   ((= a-ir 177)
-		    t)
-		   ((= b-ir 177)
-		    nil)
-		   ((< a-ir
-		       b-ir)
-		    ))
-		t)
-	    (if (charset-property kb 'iso-ir)
-		nil
-	      (< (charset-id ka)(charset-id kb)))))
-      nil)
-    )
-   ((find-charset kb))
-   ((symbolp ka)
-    (cond ((symbolp kb)
-	   (string< (symbol-name ka)
-		    (symbol-name kb)))
-	  (t)))
-   ((symbolp kb)
-    nil)))
-
 (defvar char-db-coded-charset-priority-list
   '(ascii
     control-1
@@ -265,6 +198,10 @@
     =jef-china3
     =shinjigen))
 
+
+;;; @ char-db formatters
+;;;
+
 (defun char-db-make-char-spec (char)
   (let (ret char-spec)
     (cond ((characterp char)
@@ -1346,6 +1283,10 @@
 		what-character-original-window-configuration)
 	       (signal (car err) (cdr err)))))))
 
+
+;;; @ end
+;;;
+
 (provide 'char-db-util)
 
 ;;; char-db-util.el ends here