From: Nobuyoshi Nakada <nobu.nakada@gmail.com>
Date: Thu, 14 Apr 2022 13:51:04 +0000 (+0200)
Subject: Fix electric-help-map problem when help-char has meta-prefix
X-Git-Tag: emacs-29.0.90~1931^2~577
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=36da6ceb926b684e4cee5888175924ccd79fac83;p=emacs.git

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 8c1555249ca..0c2f02639fc 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)