Mercurial > hg > xemacs-beta

diff lisp/packages/hexl.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 28f395d8dc7a
line wrap: on
line diff
--- a/lisp/packages/hexl.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/packages/hexl.el	Mon Aug 13 09:13:56 2007 +0200
@@ -706,8 +706,8 @@
   (define-key hexl-mode-map "\C-e" 'hexl-end-of-line)
   (define-key hexl-mode-map "\C-f" 'hexl-forward-char)
 
-  (if (not (eq (key-binding (char-to-string help-char)) 'help-command))
-      (define-key hexl-mode-map (char-to-string help-char) 'undefined))
+  (if (not (eq (key-binding (vector help-char)) 'help-command))
+      (define-key hexl-mode-map (vector help-char) 'undefined))
 
   (define-key hexl-mode-map "\C-i" 'hexl-self-insert-command)
   (define-key hexl-mode-map "\C-j" 'hexl-self-insert-command)