Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-category.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 9d177e8d4150
children abe6d1db359e
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
119 (if (= 1 (aref vec (- a 32))) 119 (if (= 1 (aref vec (- a 32)))
120 (setq list (cons (make-char 'ascii a) list))) 120 (setq list (cons (make-char 'ascii a) list)))
121 (setq a (1+ a))) 121 (setq a (1+ a)))
122 (nreverse list))))) 122 (nreverse list)))))
123 123
124 ;; implimented in c, file chartab.c (97/3/14 jhod@po.iijnet.or.jp) 124 ;; implemented in c, file chartab.c (97/3/14 jhod@po.iijnet.or.jp)
125 ;(defun char-in-category-p (char category &optional table) 125 ;(defun char-in-category-p (char category &optional table)
126 ; "Return non-nil if CHAR is in CATEGORY. 126 ; "Return non-nil if CHAR is in CATEGORY.
127 ;TABLE defaults to the current buffer's category table. 127 ;TABLE defaults to the current buffer's category table.
128 ;Categories are specified by their designators." 128 ;Categories are specified by their designators."
129 ; (or table (setq table (category-table))) 129 ; (or table (setq table (category-table)))