Mercurial > hg > xemacs-beta

diff lisp/electric/ebuff-menu.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 54cc21c15cbb
children
line wrap: on
line diff
--- a/lisp/electric/ebuff-menu.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/electric/ebuff-menu.el	Mon Aug 13 09:13:56 2007 +0200
@@ -193,7 +193,7 @@
 	(setq i (1+ i))))
     (define-key map "\C-z" 'suspend-emacs)
     (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
-    (define-key map (char-to-string help-char) 'Helper-help)
+    (define-key map (vector 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)
@@ -280,7 +280,7 @@
   (message "%s"
 	   (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
 		    (eq (key-binding " ") 'Electric-buffer-menu-select)
-		    (eq (key-binding (char-to-string help-char)) 'Helper-help)
+		    (eq (key-binding (vector help-char)) 'Helper-help)
 		    (eq (key-binding "?") 'Helper-describe-bindings))
 	       (substitute-command-keys "Type C-c C-c to exit, Space to select,
 Type \\[Electric-buffer-menu-quit] to exit, \