Mercurial > hg > xemacs-beta

comparison lisp/descr-text.el @ 5400:aa78b0b0b289

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add various Common Lisp character functions, making porting CL code easier. 2011-04-17 Aidan Kehoe <kehoea@parhasard.net> * cl-extra.el: * cl-extra.el ('char<): New. * cl-extra.el ('char>=): New. * cl-extra.el ('char>): New. * cl-extra.el ('char<=): New. * cl-extra.el (alpha-char-p): New. * cl-extra.el (graphic-char-p): New. * cl-extra.el (standard-char-p): New. * cl-extra.el (char-name): New. * cl-extra.el (name-char): New. * cl-extra.el (upper-case-p): New. * cl-extra.el (lower-case-p): New. * cl-extra.el (both-case-p): New. * cl-extra.el (char-upcase): New. * cl-extra.el (char-downcase): New. * cl-extra.el (integer-length): New. Add various functions dealing (mainly) with characters, making some Common Lisp code easier to port. * descr-text.el (describe-char-unicode-data): Add an autoload for this function, used by #'char-name.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 17 Apr 2011 11:14:38 +0100
parents ed74d2ca7082
children 248176c74e6b
comparison
equal deleted inserted replaced
5399:5ec4534daf16 5400:aa78b0b0b289
673 "%s" 100 673 "%s" 100
674 message) 674 message)
675 database-file-name))) 675 database-file-name)))
676 ;; End XEmacs additions. 676 ;; End XEmacs additions.
677 677
678 ;;;###autoload
678 (defun describe-char-unicode-data (char) 679 (defun describe-char-unicode-data (char)
679 "Return a list of Unicode data for unicode CHAR. 680 "Return a list of Unicode data for unicode CHAR.
680 Each element is a list of a property description and the property value. 681 Each element is a list of a property description and the property value.
681 The list is null if CHAR isn't found in `describe-char-unicodedata-file'." 682 The list is null if CHAR isn't found in `describe-char-unicodedata-file'."
682 (when describe-char-unicodedata-file 683 (when describe-char-unicodedata-file