[Emacs-diffs] master 21b81bd 1/2: Show the exact C-x 8 RET invocation in describe-char.

[Ivan Shmakov]

branch: master
commit 21b81bd8c51cf48e08089087a17f66eb70625748
Author: Ivan Shmakov <address@hidden>
Commit: Ivan Shmakov <address@hidden>

    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 files changed, 8 insertions(+), 1 deletions(-)

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index d6f64c7..484b8cc 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