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.

/* XPM */
static char * down_xpm[] = {
"10 10 5 1",
" 	c Gray90",
".	c Gray90",
"X	c Gray40",
"o	c none",
"O	c Gray75",
"          ",
"..      XX",
"o..OOOOXXo",
"o..OOOOXXo",
"oo..OOXXoo",
"oo..OOXXoo",
"ooo..XXooo",
"ooo..XXooo",
"oooo.Xoooo",
"oooo.Xoooo"};