comparison lisp/ChangeLog @ 5268:09f8ed0933c7

Avoid byte compiler warnings, some needless consing, descr-text.el lisp/ChangeLog addition: 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> * descr-text.el (unidata-initialize-unicodedata-database) (unidata-initialize-unihan-database, describe-char-unicode-data) (describe-char-unicode-data): Wrap calls to the database functions with (with-fboundp ...), avoiding byte compile warnings on builds without support for the database functions. (describe-char): (reduce #'max ...), not (apply #'max ...), no need to cons needlessly. (describe-char): Remove a redundant lambda wrapping #'extent-properties. (describe-char-unicode-data): Call #'nsubst when replacing "" with nil in the result of #'split-string, instead of consing inside mapcar.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 16 Sep 2010 15:24:40 +0100
parents 668c73e222fd
children 90a0084b3541
comparison
equal deleted inserted replaced
5267:668c73e222fd 5268:09f8ed0933c7
1 2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
2
3 * descr-text.el (unidata-initialize-unicodedata-database)
4 (unidata-initialize-unihan-database, describe-char-unicode-data)
5 (describe-char-unicode-data):
6 Wrap calls to the database functions with (with-fboundp ...),
7 avoiding byte compile warnings on builds without support for the
8 database functions.
9 (describe-char): (reduce #'max ...), not (apply #'max ...), no
10 need to cons needlessly.
11 (describe-char): Remove a redundant lambda wrapping
12 #'extent-properties.
13 (describe-char-unicode-data): Call #'nsubst when replacing "" with
14 nil in the result of #'split-string, instead of consing inside
15 mapcar.
16
1 2010-09-16 Aidan Kehoe <kehoea@parhasard.net> 17 2010-09-16 Aidan Kehoe <kehoea@parhasard.net>
2 18
3 * x-faces.el (x-available-font-sizes): 19 * x-faces.el (x-available-font-sizes):
4 * specifier.el (let-specifier): 20 * specifier.el (let-specifier):
5 * package-ui.el (pui-add-required-packages): 21 * package-ui.el (pui-add-required-packages):