Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-category.el @ 5473:ac37a5f7e5be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge with trunk.
author Mats Lidell <matsl@xemacs.org>
date Thu, 17 Mar 2011 23:42:59 +0100
parents 308d34e9f07d 311f6817efc2
children bed39edf91ba
comparison
equal deleted inserted replaced
5472:e79980ee5efe 5473:ac37a5f7e5be
60 (gethash designator defined-category-hashtable))) 60 (gethash designator defined-category-hashtable)))
61 61
62 (defun defined-category-list () 62 (defun defined-category-list ()
63 "Return a list of the currently defined categories. 63 "Return a list of the currently defined categories.
64 Categories are given by their designators." 64 Categories are given by their designators."
65 (let (list) 65 (hash-table-key-list defined-category-hashtable))
66 (maphash #'(lambda (key value)
67 (setq list (cons key list)))
68 defined-category-hashtable)
69 (nreverse list)))
70 66
71 (defun undefined-category-designator () 67 (defun undefined-category-designator ()
72 "Return an undefined category designator, or nil if there are none." 68 "Return an undefined category designator, or nil if there are none."
73 (let ((a 32) found) 69 (let ((a 32) found)
74 (while (and (< a 127) (not found)) 70 (while (and (< a 127) (not found))