Mercurial > emacs

diff lisp/subr.el @ 93721:6604d09cf521

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 05 Apr 2008 20:00:23 +0000
parents c7dd307b0ec5
children 310118b32104
line wrap: on
line diff
--- a/lisp/subr.el	Sat Apr 05 19:16:40 2008 +0000
+++ b/lisp/subr.el	Sat Apr 05 20:00:23 2008 +0000
@@ -566,7 +566,7 @@
                        (keymap-prompt map)))
     (dolist (binding ranges)
       ;; Treat char-ranges specially.
-      (define-key map (car binding) (cdr binding)))
+      (define-key map (vector (car binding)) (cdr binding)))
     (dolist (binding (prog1 bindings (setq bindings ())))
       (let* ((key (car binding))
              (item (cdr binding))