mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-06-06 Stefan Monnier <monnier@iro.umontreal.ca>
* international/mule-cmds.el (ucs-names): Add special entry for BEL
(bug#17702).
2014-06-06 Glenn Morris <rgm@gnu.org> 2014-06-06 Glenn Morris <rgm@gnu.org>
* startup.el (window-setup-hook): Doc fix. * startup.el (window-setup-hook): Doc fix.

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

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