1 ;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
3 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
4 ;; 2007, 2008, 2009, 2010 MORIOKA Tomohiko.
6 ;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
7 ;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
9 ;; This file is part of XEmacs CHISE.
11 ;; XEmacs CHISE is free software; you can redistribute it and/or
12 ;; modify it under the terms of the GNU General Public License as
13 ;; published by the Free Software Foundation; either version 2, or (at
14 ;; your option) any later version.
16 ;; XEmacs CHISE is distributed in the hope that it will be useful,
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs CHISE; see the file COPYING. If not, write to
23 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
29 (defun char-attribute-name< (ka kb)
31 ((eq '->denotational kb)
33 ((eq '->subsumptive kb)
34 (not (eq '->denotational ka)))
35 ((eq '->denotational ka)
37 ((eq '->subsumptive ka)
40 (string-match "^->" (symbol-name ka)))
41 (cond ((and (symbolp kb)
42 (string-match "^->" (symbol-name kb)))
43 (string< (symbol-name ka)
48 (string-match "^->" (symbol-name kb)))
51 (string-match "^<-" (symbol-name ka)))
53 (cond ((string-match "^<-" (symbol-name kb))
54 (string< (symbol-name ka)
57 ;; ((string-match "^->" (symbol-name kb))
62 (string-match "^<-" (symbol-name kb)))
64 ;; (not (string-match "^->" (symbol-name ka)))
69 (if (setq a-ir (charset-property ka 'iso-ir))
70 (if (setq b-ir (charset-property kb 'iso-ir))
73 (< (charset-id ka)(charset-id kb))
83 (if (charset-property kb 'iso-ir)
85 (< (charset-id ka)(charset-id kb)))))
91 (string< (symbol-name ka)
101 (provide 'chise-subr)
103 ;;; chise-subr.el ends here