mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +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

58
lisp/descr-text.el
View File

@ -583,33 +583,39 @@ as well as widgets, buttons, overlays, and text properties."
(if (cadr composition)
(insert " with the following character(s) \""
(cadr composition) "\"")))
(insert " by the rule:\n\t("
(mapconcat (lambda (x)
(if (consp x) (format "%S" x)
(if (= x ?\t)
(single-key-description x)
(string ?? x))))
(nth 2 composition)
" ")
")")
(insert "\nThe component character(s) are displayed by ")
(if (display-graphic-p (selected-frame))
(if (and (vectorp (nth 2 composition))
(vectorp (aref (nth 2 composition) 0)))
(progn
(insert "these fonts (glyph codes):")
(dolist (elt component-chars)
(if (/= (car elt) ?\t)
(insert "\n " (car elt) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr elt)
(format "%s (#x%02X)" (cadr elt) (cddr elt))
"-- no font --")))))
(insert "these terminal codes:")
(dolist (elt component-chars)
(insert "\n " (car elt) ":"
(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"))
(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)
(if (= x ?\t)
(single-key-description x)
(string ?? x))))
(nth 2 composition)
" ")
")")
(insert "\nThe component character(s) are displayed by ")
(if (display-graphic-p (selected-frame))
(progn
(insert "these fonts (glyph codes):")
(dolist (elt component-chars)
(if (/= (car elt) ?\t)
(insert "\n " (car elt) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr elt)
(format "%s (#x%02X)" (cadr elt) (cddr elt))
"-- no font --")))))
(insert "these terminal codes:")
(dolist (elt component-chars)
(insert "\n " (car elt) ":"
(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")))
(if (not describe-char-unidata-list)
(insert "\nCharacter code properties are not shown: ")