X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Futf-2000%2Fchise-subr.el;h=61011205db6aeba20c42e607b55e4336a7ad237f;hb=c8ceb6dfb48bd272a39e7b9d578d9561d33b85ba;hp=895bcac8a1a7cb65ca02ea14fd0ecdfc1e7a7746;hpb=35aba0ec5776d315a24e9fc8e4ebe00f1194ae17;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/utf-2000/chise-subr.el b/lisp/utf-2000/chise-subr.el
index 895bcac..6101120 100644
--- 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
 
-;; 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.
@@ -25,6 +25,11 @@
 
 ;;; 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
 ;;;
 
@@ -36,6 +41,7 @@
 
 ;;;###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)
@@ -109,6 +115,7 @@
 
 ;;;###autoload
 (defun char-ucs (char)
+  "Return code-point of UCS."
   (or (encode-char char '=ucs 'defined-only)
       (char-feature char '=>ucs)))