describe-char: unambiguous name for inserting ASCII 7

* lisp/descr-text.el (describe-char): Make the input
suggestion for inserting ASCII character 7 by name use the
unambiguous name "BELL (BEL)" (bug#25641).

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index 3971dbb86b21f286027ed8fedc8b71a3d7187c0a..6a6a8ea4479864085cea670f29955fcbbd995f53 100644 (file)
--- 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)