From a850be2ef8dc9e38dd7768765c2000d1e6e85f86 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 20 Jun 2007 12:07:32 +0000 Subject: [PATCH] (describe-char): Fix for the case that a component character is TAB. --- lisp/descr-text.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 9f6cbb4013e..85edf322644 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -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")) -- 2.39.5