master 36da6ceb92: Fix electric-help-map problem when help-char has meta-prefix

[Lars Ingebrigtsen]

branch: master
commit 36da6ceb926b684e4cee5888175924ccd79fac83
Author: Nobuyoshi Nakada <nobu.nakada@gmail.com>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/ehelp.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/ehelp.el b/lisp/ehelp.el
index 8c1555249c..0c2f02639f 100644
--- 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)