Commit 28b83297 authored by Stefan Monnier's avatar Stefan Monnier

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

Fixes: debbugs:17702
parent b8379803
2014-06-06 Stefan Monnier <>
* international/mule-cmds.el (ucs-names): Add special entry for BEL
2014-06-06 Glenn Morris <>
* startup.el (window-setup-hook): Doc fix.
......@@ -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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment