diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-05-25 18:05:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-05-25 18:05:58 +0000 |
| commit | 9a5114ac7e384d28a13c99725380b6024abde5cf (patch) | |
| tree | efdde1e960acf5502176046b739e0375407a2bac | |
| parent | f8fc2527ce935eb8b0862b01d3801d0ec4439e08 (diff) | |
| download | emacs-9a5114ac7e384d28a13c99725380b6024abde5cf.tar.gz | |
(substitute-key-definition): Fix previous change.
| -rw-r--r-- | lisp/subr.el | 5 |
1 files 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) |