From 21b81bd8c51cf48e08089087a17f66eb70625748 Mon Sep 17 00:00:00 2001 From: Ivan Shmakov Date: Wed, 27 May 2015 22:14:57 +0000 Subject: [PATCH] Show the exact C-x 8 RET invocation in describe-char. * lisp/descr-text.el (describe-char): Show the exact C-x 8 RET invocation instead of a template. (Bug#20522) --- lisp/descr-text.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/descr-text.el b/lisp/descr-text.el index d6f64c77e61..484b8cc43ad 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -618,7 +618,14 @@ relevant to POS." 'help-args '(,current-input-method)) "input method") (list - "type \"C-x 8 RET HEX-CODEPOINT\" or \"C-x 8 RET NAME\""))))) + (let ((name + (or (get-char-code-property char 'name) + (get-char-code-property char 'old-name)))) + (if name + (format + "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\"" + char name) + (format "type \"C-x 8 RET %x\"" char)))))))) ("buffer code" ,(if multibyte-p (encoded-string-description -- 2.39.2