entered into RCS

3 files changed, 4 insertions, 4 deletions

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index f9bb8adf3b6..bc05ade43bf 100644
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -221,7 +221,7 @@ Does not execute select, save, or delete commands."
   (ding)
   (message (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
                     (eq (key-binding " ") 'Electric-buffer-menu-select)
-                    (eq (key-binding help-key) 'Helper-help)
+                    (eq (key-binding (char-to-string help-char)) 'Helper-help)
                     (eq (key-binding "?") 'Helper-describe-bindings))
                (substitute-command-keys "Type C-c C-c to exit, Space to select, \\[Helper-help] for help, ? for commands")
              (substitute-command-keys "\
diff --git a/lisp/echistory.el b/lisp/echistory.el
index 80e8bed764b..e78856143eb 100644
--- a/lisp/echistory.el
+++ b/lisp/echistory.el
@@ -63,7 +63,7 @@ With prefix arg NOCONFIRM, execute current line as-is without editing."
   (define-key electric-history-map "\C-c\C-c" 'Electric-history-quit)
   (define-key electric-history-map "\C-]" 'Electric-history-quit)
   (define-key electric-history-map "\C-z" 'suspend-emacs)
-  (define-key electric-history-map help-char 'Helper-help)
+  (define-key electric-history-map (char-to-string help-char) 'Helper-help)
   (define-key electric-history-map "?" 'Helper-describe-bindings)
   (define-key electric-history-map "\e>" 'end-of-buffer)
   (define-key electric-history-map "\e<" 'beginning-of-buffer)
diff --git a/lisp/help.el b/lisp/help.el
index 29cf96e42fc..89ed440ff20 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -26,10 +26,10 @@
 (defvar help-map (make-sparse-keymap)
   "Keymap for characters following the Help key.")
 
-(define-key global-map help-key 'help-command)
+(define-key global-map (char-to-string help-char) 'help-command)
 (fset 'help-command help-map)
 
-(define-key help-map help-char 'help-for-help)
+(define-key help-map (char-to-string help-char) 'help-for-help)
 (define-key help-map "?" 'help-for-help)
 
 (define-key help-map "\C-c" 'describe-copying)