# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 864583558 0
# Node ID 15dc805eadee2c167d9786aabc8c8dc047c549af
# Parent  9c14296387f7bc385eba825740b592b06b2dd127
(substitute-key-definition): Fix previous change.

diff -r 9c14296387f7 -r 15dc805eadee lisp/subr.el
--- 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)