From: tomo <tomo>
Date: Tue, 11 Apr 2000 07:31:51 +0000 (+0000)
Subject: (ideograph-char<): Prefer `non-morohashi' to `morohashi-daikanwa'.
X-Git-Tag: r21-2-27-utf-2000-0_15-0~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11ee1478d5fce655eacd95703482d113f92c5b37;p=chise%2Fxemacs-chise.git

(ideograph-char<): Prefer `non-morohashi' to `morohashi-daikanwa'.
---

diff --git a/lisp/utf-2000/ideograph-util.el b/lisp/utf-2000/ideograph-util.el
index b051ead..20fc9e9 100644
--- a/lisp/utf-2000/ideograph-util.el
+++ b/lisp/utf-2000/ideograph-util.el
@@ -132,11 +132,11 @@
 (defun ideograph-char< (a b)
   (let (ra rb)
     (cond
-     ((setq ra (or (get-char-attribute a 'morohashi-daikanwa)
-		   (get-char-attribute a 'non-morohashi)))
+     ((setq ra (or (get-char-attribute a 'non-morohashi)
+		   (get-char-attribute a 'morohashi-daikanwa)))
       (cond
-       ((setq rb (or (get-char-attribute b 'morohashi-daikanwa)
-		     (get-char-attribute b 'non-morohashi)))
+       ((setq rb (or (get-char-attribute b 'non-morohashi)
+		     (get-char-attribute b 'morohashi-daikanwa)))
 	(cond
 	 ((= (car ra)(car rb))
 	  (cond ((eq (car (cdr ra))(car (cdr rb)))
@@ -159,8 +159,8 @@
 		(t (< (car (cdr ra))(car (cdr rb))))))
 	 (t (< (car ra)(car rb)))))
        (t)))
-     ((or (get-char-attribute b 'morohashi-daikanwa)
-	  (get-char-attribute b 'non-morohashi))
+     ((or (get-char-attribute b 'non-morohashi)
+	  (get-char-attribute b 'morohashi-daikanwa))
       nil)
      ((setq ra (get-char-attribute a 'ucs))
       (cond