Mercurial > emacs
changeset 90958:119629f41ebb
(describe-char): Fix for the case that a component character is TAB.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Wed, 20 Jun 2007 12:07:32 +0000 |
| parents | bf2e84efba99 |
| children | 3f83c9d3f96c |
| files | lisp/descr-text.el |
| diffstat | 1 files changed, 11 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/descr-text.el Wed Jun 20 11:30:29 2007 +0000 +++ b/lisp/descr-text.el Wed Jun 20 12:07:32 2007 +0000 @@ -585,7 +585,10 @@ (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 @@ (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"))