mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

(substitute-key-definition): Fix previous change.

Browse source
This commit is contained in:
Richard M. Stallman 1997-05-25 18:05:58 +00:00
parent f8fc2527ce
commit 9a5114ac7e
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/subr.el
View file

@ -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)