mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

describe-char: unambiguous name for inserting ASCII 7

Browse Source 
* lisp/descr-text.el (describe-char): Make the input
suggestion for inserting ASCII character 7 by name use the
unambiguous name "BELL (BEL)" (bug#25641).
This commit is contained in:
Stephen Berman 2017-02-08 22:38:39 +01:00
parent e3b6596308
commit 90f76eb358
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/descr-text.el
View File

@ -616,10 +616,18 @@ relevant to POS."
'help-args '(,current-input-method))
"input method")
(list
(let ((name
(or (get-char-code-property char 'name)
(get-char-code-property char 'old-name))))
(if (and name (assoc-string name (ucs-names)))
(let* ((names (ucs-names))
(name
(or (when (= char 7)
;; Special case for "BELL" which is
;; apparently the only char which
;; doesn't have a new name and whose
;; old-name is shadowed by a newer char
;; with that name (bug#25641).
(car (rassoc char names)))
(get-char-code-property char 'name)
(get-char-code-property char 'old-name))))
(if (and name (assoc-string name names))
(format
"type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
char name)