From 47bf6172ffbc1f38ce6bc2e02c98e6f945fb4170 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 31 May 2010 06:01:44 +0000 Subject: [PATCH] (char-attribute-name<): Add DOC-string. (char-ucs): Ditto. --- lisp/utf-2000/chise-subr.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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 ;; 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))) -- 1.7.10.4