Mercurial > hg > xemacs-beta

diff lisp/electric/ehelp.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 b9518feda344
children
line wrap: on
line diff
--- a/lisp/electric/ehelp.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/electric/ehelp.el	Mon Aug 13 09:13:56 2007 +0200
@@ -65,7 +65,7 @@
     (define-key map [(control ?7)] 'electric-help-undefined)
     (define-key map [(control ?8)] 'electric-help-undefined)
     (define-key map [(control ?9)] 'electric-help-undefined)
-    (define-key map (char-to-string help-char) 'electric-help-help)
+    (define-key map (vector help-char) 'electric-help-help)
     (define-key map "?" 'electric-help-help)
     ;; XEmacs addition
     (define-key map 'help 'electric-help-help)