diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/descr-text.el | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 3971dbb86b2..6a6a8ea4479 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -616,10 +616,18 @@ relevant to POS." 'help-args '(,current-input-method)) "input method") (list - (let ((name - (or (get-char-code-property char 'name) - (get-char-code-property char 'old-name)))) - (if (and name (assoc-string name (ucs-names))) + (let* ((names (ucs-names)) + (name + (or (when (= char 7) + ;; 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 (bug#25641). + (car (rassoc char names))) + (get-char-code-property char 'name) + (get-char-code-property char 'old-name)))) + (if (and name (assoc-string name names)) (format "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\"" char name) |