Don't show char name for multi-char translations

I forgot about shift-translation when implementing this originally, so
this code was being triggered for things like 'C-S-<up>'.

* lisp/help.el (help-key-description): Check if the translation result
is a single char.

(Bug#71411)

(cherry picked from commit 96e27c2ecf9914cbb9d2e0824adf501082f88ef6)

diff --git a/lisp/help.el b/lisp/help.el
index 021d83f070551906774f708aea388c4697818442..94926555c0ff0018678816d80bb8256a9b21c0e4 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1020,7 +1020,8 @@ If INSERT (the prefix arg) is non-nil, insert the message in the buffer."
       (let ((otherstring (help--key-description-fontified untranslated)))
        (if (equal string otherstring)
            string
-          (if-let ((char-name (char-to-name (aref string 0))))
+          (if-let ((char-name (and (length= string 1)
+                                   (char-to-name (aref string 0)))))
               (format "%s '%s' (translated from %s)" string char-name otherstring)
             (format "%s (translated from %s)" string otherstring)))))))