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 | 8ff9cce145278d76a2d81b928538c27a318e1daa (patch) | |
| tree | e8ad28656bfcc443e632a011ad2e81bff73b1402 /lisp/subr.el | |
| parent | 522e932c9dae665f6f4fda58c260ee7f7a032c7a (diff) | |
| download | emacs-8ff9cce145278d76a2d81b928538c27a318e1daa.tar.gz | |
(substitute-key-definition): Fix previous change.
Diffstat (limited to 'lisp/subr.el')
| -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) |