projects
/
chise
/
xemacs-chise.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
c4b8c1a
)
(ideograph-char<): Prefer `non-morohashi' to `morohashi-daikanwa'.
author
tomo
<tomo>
Tue, 11 Apr 2000 07:31:51 +0000
(07:31 +0000)
committer
tomo
<tomo>
Tue, 11 Apr 2000 07:31:51 +0000
(07:31 +0000)
lisp/utf-2000/ideograph-util.el
patch
|
blob
|
history
diff --git
a/lisp/utf-2000/ideograph-util.el
b/lisp/utf-2000/ideograph-util.el
index
b051ead
..
20fc9e9
100644
(file)
--- 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
(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
(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)))
(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)))
(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
nil)
((setq ra (get-char-attribute a 'ucs))
(cond