;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
-;; 2010, 2011, 2012, 2013, 2014 MORIOKA Tomohiko.
+;; 2010, 2011, 2012, 2013, 2014, 2015, 2020, 2021 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
;; (unless (memq domain dest)
;; (push domain dest))))))
;; (sort dest #'string<))
- '(ucs ucs/compat daikanwa cns gt jis jis/alt jis/a jis/b
- jis-x0212 jis-x0213 cdp shinjigen
- r030 r140 misc unknown))
+ '(ucs ucs/compat daikanwa cns gt jis jis/a jis/b
+ jis-x0212 jis-x0213 cdp shinjigen mj
+ r030 r053 r055 r140 misc unknown))
(defconst charset-id-=adobe-japan1-0 (charset-id '=adobe-japan1-0))
(defconst charset-id-=adobe-japan1-6 (charset-id '=adobe-japan1-6))
(t nil))
(cond
((eq ka '=mj)
- t)
+ (not (eq kb '=mj))
+ )
((eq ka '==mj)
- t)
+ (not (or (eq kb '=mj)
+ (eq kb '=>>mj)
+ (eq kb '==mj)))
+ )
((eq ka '=>>mj)
- t)
+ (not (or (eq kb '=mj)
+ (eq kb '=>>mj)))
+ )
((and (setq a-id (charset-id ka))
(charset-id-adobe-japan1-p a-id))
(cond
((eq kb '=mj)
nil)
((eq kb '==mj)
- nil)
+ (or (eq ka '=mj)
+ (eq ka '=>>mj)
+ (eq ka '==mj))
+ )
((eq kb '=>>mj)
- nil)
+ (or (eq ka '=mj)
+ (eq ka '=>>mj))
+ )
((and (setq b-id (charset-id kb))
(charset-id-adobe-japan1-p b-id))
nil)
(defun char-ucs (char)
"Return code-point of UCS."
(or (encode-char char '=ucs 'defined-only)
+ (char-feature char '=ucs)
(char-feature char '=>ucs)))
;;;###autoload