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

Fixes: debbugs:17702

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b5df032e9cba4143648f6292c0a00bcd624d9db..77b1585dcbef900a3bf6993c8131f5ef16b268ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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>
 
        * startup.el (window-setup-hook): Doc fix.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index f83e64e3921028faa6938243b60c6f9462072325..0a2f09029da153c802fc85f4004c90e3c06bfef3 100644 (file)
--- 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.