projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- Add some Adobe-Japan1 code points.
[chise/xemacs-chise.git-]
/
lisp
/
utf-2000
/
chise-subr.el
diff --git
a/lisp/utf-2000/chise-subr.el
b/lisp/utf-2000/chise-subr.el
index
895bcac
..
6101120
100644
(file)
--- a/
lisp/utf-2000/chise-subr.el
+++ b/
lisp/utf-2000/chise-subr.el
@@
-1,7
+1,7
@@
;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
;;; chise-subr.el --- basic lisp subroutines for XEmacs CHISE
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;; 2007, 2008, 2009, 2010 MORIOKA Tomohiko.
+;; Copyright (C) 1999, 2001, 2002, 2003, 2004, 2005, 2007, 2008, 2009,
+;; 2010 MORIOKA Tomohiko.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
;; Author: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
;; Keywords: CHISE, Character Database, ISO/IEC 10646, UCS, Unicode, MULE.
@@
-25,6
+25,11
@@
;;; Code:
;;; Code:
+(defvar char-db-feature-domains
+ '(ucs ucs/compat daikanwa cns gt jis jis/alt jis/a jis/b
+ jis-x0212 jis-x0213 cdp shinjigen misc unknown))
+
+
;;; @ feature name
;;;
;;; @ feature name
;;;
@@
-36,6
+41,7
@@
;;;###autoload
(defun char-attribute-name< (ka kb)
;;;###autoload
(defun char-attribute-name< (ka kb)
+ "Return t if symbol KA is less than KB in feature-name sorting order."
(cond
((eq '->denotational kb)
t)
(cond
((eq '->denotational kb)
t)
@@
-109,6
+115,7
@@
;;;###autoload
(defun char-ucs (char)
;;;###autoload
(defun char-ucs (char)
+ "Return code-point of UCS."
(or (encode-char char '=ucs 'defined-only)
(char-feature char '=>ucs)))
(or (encode-char char '=ucs 'defined-only)
(char-feature char '=>ucs)))