mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(describe-char): Handle a composition of the new

Browse Source 
format.
This commit is contained in:
Kenichi Handa 2007-12-04 06:05:28 +00:00
parent dd63383d47
commit 3f8b1daa44
1 changed files with 32 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/descr-text.el
View File

@ -583,6 +583,12 @@ as well as widgets, buttons, overlays, and text properties."
(if (cadr composition)
(insert " with the following character(s) \""
(cadr composition) "\"")))
(if (and (vectorp (nth 2 composition))
(vectorp (aref (nth 2 composition) 0)))
(progn
(insert " by these glyphs:\n")
(mapc (lambda (x) (insert (format " %S\n" x)))
(nth 2 composition)))
(insert " by the rule:\n\t("
(mapconcat (lambda (x)
(if (consp x) (format "%S" x)
@ -609,7 +615,7 @@ as well as widgets, buttons, overlays, and text properties."
(propertize " " 'display '(space :align-to 4))
(or (cdr elt) "-- not encodable --"))))
(insert "\nSee the variable `reference-point-alist' for "
"the meaning of the rule.\n"))
"the meaning of the rule.\n")))
(if (not describe-char-unidata-list)
(insert "\nCharacter code properties are not shown: ")