From a3300b3fb1c54dff9d3ec1d0472c018ae7ca4215 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Wed, 12 Dec 2012 00:44:17 +0900 Subject: [PATCH] (char-attribute-name<): Don't prefer `*foo' to `foo' and `->foo'. --- lisp/utf-2000/chise-subr.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el index 70e96d9..a9dce30 100644 --- a/lisp/utf-2000/chise-subr.el +++ b/lisp/utf-2000/chise-subr.el @@ -63,6 +63,17 @@ (defun char-attribute-name< (ka kb) "Return t if symbol KA is less than KB in feature-name sorting order." (cond + ((and (symbolp ka) + (eq (aref (symbol-name ka) 0) ?*)) + (cond ((and (symbolp kb) + (eq (aref (symbol-name kb) 0) ?*)) + (string< (symbol-name ka) + (symbol-name kb)) + )) + ) + ((and (symbolp kb) + (eq (aref (symbol-name kb) 0) ?*)) + t) ((eq '->denotational kb) t) ((eq '->subsumptive kb) -- 1.7.10.4