From: tomo <tomo>
Date: Mon, 31 May 2010 06:01:44 +0000 (+0000)
Subject: (char-attribute-name<): Add DOC-string.
X-Git-Tag: chise-base-0_25^20~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=47bf6172ffbc1f38ce6bc2e02c98e6f945fb4170;p=chise%2Fxemacs-chise.git.1

(char-attribute-name<): Add DOC-string.
(char-ucs): Ditto.
---

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