From 9a5114ac7e384d28a13c99725380b6024abde5cf Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 May 1997 18:05:58 +0000 Subject: [PATCH] (substitute-key-definition): Fix previous change. --- lisp/subr.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/subr.el b/lisp/subr.el index f4a457ab1d3..0b87112c9cd 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -205,9 +205,8 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP." (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) -- 2.39.5