From 11ee1478d5fce655eacd95703482d113f92c5b37 Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 11 Apr 2000 07:31:51 +0000 Subject: [PATCH 1/1] (ideograph-char<): Prefer `non-morohashi' to `morohashi-daikanwa'. --- lisp/utf-2000/ideograph-util.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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 -- 1.7.10.4