mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/international/mule-cmds.el (ucs-names): Add special entry for BEL.

Browse source 
Fixes: debbugs:17702
This commit is contained in:
Stefan Monnier 2014-06-06 10:25:39 -04:00
parent b83798031c
commit 28b8329726
2 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/international/mule-cmds.el
View file

@ -2945,7 +2945,10 @@ on encoding."
(if (setq name (get-char-code-property c 'name))
(push (cons name c) names))
(setq c (1+ c))))
(setq ucs-names names))))
;; 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.
(setq ucs-names `(("BELL (BEL)" . 7) ,@names)))))
(defun read-char-by-name (prompt)
"Read a character by its Unicode name or hex number string.