Fix electric-help-map problem when help-char has meta-prefix

* lisp/ehelp.el (electric-help-map): Fix problem when help-char
has meta-prefix (bug#54932).

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 8c1555249ca33f798d27b024bd552342a0aac6ee..0c2f02639fc74aeb4b49fb0fe7ce6ec34d4a53a3 100644 (file)
--- a/lisp/ehelp.el
+++ b/lisp/ehelp.el
@@ -76,7 +76,10 @@
     (define-key map [?\C-7] 'electric-help-undefined)
     (define-key map [?\C-8] 'electric-help-undefined)
     (define-key map [?\C-9] 'electric-help-undefined)
-    (define-key map (char-to-string help-char) 'electric-help-help)
+    (define-key map (if (characterp help-char)
+                        (char-to-string help-char)
+                      (vector help-char))
+                'electric-help-help)
     (define-key map "?" 'electric-help-help)
     (define-key map " " 'scroll-up)
     (define-key map [?\S-\ ] 'scroll-down)