diff options
| author | Ivan Shmakov <ivan@siamics.net> | 2015-05-27 22:14:57 +0000 |
|---|---|---|
| committer | Ivan Shmakov <ivan@siamics.net> | 2015-05-27 22:14:57 +0000 |
| commit | 21b81bd8c51cf48e08089087a17f66eb70625748 (patch) | |
| tree | 0157c59abbdaf2fead388b7ae20018f40a2e81de /lisp/descr-text.el | |
| parent | 1f7abd04bc695c86dc6b8ee5ad88c7639c2c8868 (diff) | |
| download | emacs-21b81bd8c51cf48e08089087a17f66eb70625748.tar.gz | |
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)
Diffstat (limited to 'lisp/descr-text.el')
| -rw-r--r-- | 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 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 |