(vc-admin): Pass t as noquery arg to vc-resynch-window.

[gnu-emacs] / lisp / ebuff-menu.el

diff --git a/lisp/ebuff-menu.el b/lisp/ebuff-menu.el
index 5a199d5a58e74abfe27fd8cf4fcb64e19649b48d..bc05ade43bf23e50d3e279e0675f151c021017cc 100644 (file)
--- a/lisp/ebuff-menu.el
+++ b/lisp/ebuff-menu.el
@@ -156,7 +156,7 @@ electric-buffer-menu-mode-hook if it is non-nil."
     (fillarray (lookup-key map "\e") 'Electric-buffer-menu-undefined)
     (define-key map "\C-z" 'suspend-emacs)
     (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
-    (define-key map help-char 'Helper-help)
+    (define-key map (char-to-string help-char) 'Helper-help)
     (define-key map "?" 'Helper-describe-bindings)
     (define-key map "\C-c" nil)
     (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
@@ -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 "\