Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-category.el @ 5363:311f6817efc2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove various redundant wrapper lambdas, core lisp. 2011-03-08 Aidan Kehoe <kehoea@parhasard.net> * package-ui.el (pui-add-required-packages): * packages.el (packages-handle-package-dumped-lisps): * bytecomp-runtime.el (byte-compile-with-fboundp): * bytecomp-runtime.el (globally-declare-fboundp): * bytecomp-runtime.el (byte-compile-with-byte-compiler-warnings-suppressed): * mule/devan-util.el (devanagari-reorder-glyphs-for-composition): * mule/devan-util.el (devanagari-compose-to-one-glyph): * mule/japanese.el: * mule/japanese.el ("Japanese"): * mule/make-coding-system.el (fixed-width-generate-helper): * mule/mule-category.el (defined-category-list): * mule/mule-category.el (undefined-category-designator): Style change: remove redundant lambdas, things like (mapcar #'(lambda (pkg) (symbol-name pkg)) ...) => (mapcar #'symbol-name ...).
author Aidan Kehoe <kehoea@parhasard.net>
date Tue, 08 Mar 2011 18:12:48 +0000
parents 980575c76541
children ac37a5f7e5be
comparison
equal deleted inserted replaced
5362:1cfe6b84efbf 5363:311f6817efc2
62 (gethash designator defined-category-hashtable))) 62 (gethash designator defined-category-hashtable)))
63 63
64 (defun defined-category-list () 64 (defun defined-category-list ()
65 "Return a list of the currently defined categories. 65 "Return a list of the currently defined categories.
66 Categories are given by their designators." 66 Categories are given by their designators."
67 (let (list) 67 (hash-table-key-list defined-category-hashtable))
68 (maphash #'(lambda (key value)
69 (setq list (cons key list)))
70 defined-category-hashtable)
71 (nreverse list)))
72 68
73 (defun undefined-category-designator () 69 (defun undefined-category-designator ()
74 "Return an undefined category designator, or nil if there are none." 70 "Return an undefined category designator, or nil if there are none."
75 (let ((a 32) found) 71 (let ((a 32) found)
76 (while (and (< a 127) (not found)) 72 (while (and (< a 127) (not found))