[Emacs-diffs] emacs-24 r117213: * lisp/international/mule-cmds.el (ucs-names): Add special entry for BEL.

[Stefan Monnier]

------------------------------------------------------------
revno: 117213
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=17702
committer: Stefan Monnier <address@hidden>
branch nick: emacs-24
timestamp: Fri 2014-06-06 10:25:39 -0400
message:
  * lisp/international/mule-cmds.el (ucs-names): Add special entry for BEL.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/international/mule-cmds.el 
mulecmds.el-20091113204419-o5vbwnq5f7feedwu-1043

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-06 07:19:23 +0000
+++ b/lisp/ChangeLog    2014-06-06 14:25:39 +0000
@@ -1,3 +1,8 @@
+2014-06-06  Stefan Monnier  <address@hidden>
+
+       * international/mule-cmds.el (ucs-names): Add special entry for BEL
+       (bug#17702).
+
 2014-06-06  Glenn Morris  <address@hidden>
 
        * startup.el (window-setup-hook): Doc fix.

=== modified file 'lisp/international/mule-cmds.el'
--- a/lisp/international/mule-cmds.el   2014-01-01 07:43:34 +0000
+++ b/lisp/international/mule-cmds.el   2014-06-06 14:25:39 +0000
@@ -2945,7 +2945,10 @@
            (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.