Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
e025dddf
Commit
e025dddf
authored
May 22, 1994
by
Richard M. Stallman
Browse files
(substitute-key-definition): Skip cached menu key-equivs.
parent
8b4b171e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
0 deletions
+9
-0
lisp/subr.el
lisp/subr.el
+9
-0
No files found.
lisp/subr.el
View file @
e025dddf
...
...
@@ -168,15 +168,22 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
(
while
(
stringp
(
car-safe
defn
))
(
setq
skipped
(
cons
(
car
defn
)
skipped
))
(
setq
defn
(
cdr
defn
)))
;; Skip past cached key-equivalence data for menu items.
(
and
(
consp
defn
)
(
consp
(
car
defn
))
(
setq
defn
(
cdr
defn
)))
(
setq
inner-def
defn
)
;; Look past a symbol that names a keymap.
(
while
(
and
(
symbolp
inner-def
)
(
fboundp
inner-def
))
(
setq
inner-def
(
symbol-function
inner-def
)))
(
if
(
eq
defn
olddef
)
(
define-key
keymap
prefix1
(
nconc
(
nreverse
skipped
)
newdef
))
;; Avoid recursively rescanning a keymap being scanned.
(
if
(
and
(
keymapp
defn
)
(
not
(
memq
inner-def
key-substitution-in-progress
)))
;; If this one isn't being scanned already,
;; scan it now.
(
substitute-key-definition
olddef
newdef
keymap
inner-def
prefix1
)))))
...
...
@@ -195,6 +202,8 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
(
while
(
stringp
(
car-safe
defn
))
(
setq
skipped
(
cons
(
car
defn
)
skipped
))
(
setq
defn
(
cdr
defn
)))
(
and
(
consp
defn
)
(
consp
(
car
defn
))
(
setq
defn
(
cdr
defn
)))
(
setq
inner-def
defn
)
(
while
(
and
(
symbolp
inner-def
)
(
fboundp
inner-def
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment