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

Fixes: debbugs:17702

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b5df032e9c..77b1585dcbe 100644
--- 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 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.