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

(describe-char): Fix for the case that a component character is TAB.

Browse Source
This commit is contained in:
Kenichi Handa 2007-06-20 12:07:32 +00:00
parent 9669dfca0d
commit a850be2ef8
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/descr-text.el
View File

@ -585,7 +585,10 @@ as well as widgets, buttons, overlays, and text properties."
(cadr composition) "\"")))
(insert " by the rule:\n\t("
(mapconcat (lambda (x)
(format (if (consp x) "%S" "?%c") x))
(if (consp x) (format "%S" x)
(if (= x ?\t)
(single-key-description x)
(string ?? x))))
(nth 2 composition)
" ")
")")
@ -594,15 +597,16 @@ as well as widgets, buttons, overlays, and text properties."
(progn
(insert "these fonts (glyph codes):")
(dolist (elt component-chars)
(insert "\n " (car elt) ?:
(propertize " " 'display '(space :align-to 5))
(if (cdr elt)
(format "%s (#x%02X)" (cadr elt) (cddr elt))
"-- no font --"))))
(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 5))
(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"))