Mercurial > emacs

changeset 17943:15dc805eadee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(substitute-key-definition): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 25 May 1997 18:05:58 +0000
parents 9c14296387f7
children 0714535d0e28
files lisp/subr.el
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/subr.el	Sun May 25 06:32:32 1997 +0000
+++ b/lisp/subr.el	Sun May 25 18:05:58 1997 +0000
@@ -205,9 +205,8 @@
 			       (if (or (eq defn olddef)
 				       (and (or (stringp defn) (vectorp defn))
 					    (equal defn olddef)))
-				   (set-char-table-range (car scan)
-							 char
-							 (nconc (nreverse skipped) newdef))
+				   (define-key keymap prefix1
+				     (nconc (nreverse skipped) newdef))
 				 (if (and (keymapp defn)
 					  (let ((elt (lookup-key keymap prefix1)))
 					    (or (null elt)