(char-attribute-name<): Prefer MJ to Adobe-Japan1.
authorMORIOKA Tomohiko <tomo.git@chise.org>
Thu, 20 Feb 2014 20:32:49 +0000 (05:32 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Thu, 20 Feb 2014 20:32:49 +0000 (05:32 +0900)
lisp/utf-2000/chise-subr.el

index 3f00569..361662c 100644 (file)
@@ -1,7 +1,7 @@
 ;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
 
 ;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
-;;   2010, 2011, 2012, 2013 MORIOKA Tomohiko.
+;;   2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko.
 
 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
 ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
                (cond
                 ((= a-ir 177)
                  t)
+                ((eq kb '=mj)
+                 nil)
+                ((eq kb '==mj)
+                 nil)
+                ((eq kb '=>>mj)
+                 nil)
                 ((and (setq b-id (charset-id kb))
                       (charset-id-adobe-japan1-p b-id))
                  nil)
                (cond
                 ((= b-ir 177)
                  nil)
+                ((eq ka '=mj)
+                 t)
+                ((eq ka '==mj)
+                 t)
+                ((eq ka '=>>mj)
+                 t)
                 ((and (setq a-id (charset-id ka))
                       (charset-id-adobe-japan1-p a-id))
                  t)
                 (t nil))
              (cond
+              ((eq ka '=mj)
+               t)
+              ((eq ka '==mj)
+               t)
+              ((eq ka '=>>mj)
+               t)
               ((and (setq a-id (charset-id ka))
                     (charset-id-adobe-japan1-p a-id))
-               (if (and (setq b-id (charset-id kb))
-                        (charset-id-adobe-japan1-p b-id))
-                   (< a-id b-id)
-                 t))
+               (cond
+                ((eq kb '=mj)
+                 nil)
+                ((eq kb '==mj)
+                 nil)
+                ((eq kb '=>>mj)
+                 nil)
+                ((and (setq b-id (charset-id kb))
+                      (charset-id-adobe-japan1-p b-id))
+                 (< a-id b-id))
+                (t))
+               )
+              ((eq kb '=mj)
+               nil)
+              ((eq kb '==mj)
+               nil)
+              ((eq kb '=>>mj)
+               nil)
               ((and (setq b-id (charset-id kb))
                     (charset-id-adobe-japan1-p b-id))
                nil)