diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-06-06 10:25:39 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2014-06-06 10:25:39 -0400 |
| commit | 28b83297264341b404856fd6e96dd366fa0c1fd0 (patch) | |
| tree | 2b279a0942a3975812951b13fe2831227135c6e3 /lisp/international/mule-cmds.el | |
| parent | b83798031cae6d1297ae5746aebb34cca16c6ac9 (diff) | |
| download | emacs-28b83297264341b404856fd6e96dd366fa0c1fd0.tar.gz | |
* lisp/international/mule-cmds.el (ucs-names): Add special entry for BEL.
Fixes: debbugs:17702
Diffstat (limited to 'lisp/international/mule-cmds.el')
| -rw-r--r-- | lisp/international/mule-cmds.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index f83e64e3921..0a2f09029da 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el @@ -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. |