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
c6ec9f6e
Commit
c6ec9f6e
authored
Feb 21, 1994
by
Richard M. Stallman
Browse files
(get_keyelt): Cached equiv-key data is now a sublist.
parent
0da7cff1
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
src/keymap.c
src/keymap.c
+6
-7
No files found.
src/keymap.c
View file @
c6ec9f6e
...
...
@@ -371,14 +371,13 @@ get_keyelt (object)
if
(
XTYPE
(
object
)
==
Lisp_Cons
&&
XTYPE
(
XCONS
(
object
)
->
car
)
==
Lisp_String
)
object
=
XCONS
(
object
)
->
cdr
;
/* Also remove the
vector
that caches key equivalences, if any. */
if
(
XTYPE
(
object
)
==
Lisp_Cons
&&
XTYPE
(
XCONS
(
object
)
->
car
)
==
Lisp_Vector
)
/* Also remove the
sublist
that caches key equivalences, if any. */
if
(
CONSP
(
object
)
&&
CONSP
(
XCONS
(
object
)
->
car
))
{
object
=
XCONS
(
object
)
->
cdr
;
/* Also remove the key's description. */
if
(
XTYPE
(
object
)
==
Lisp_Cons
&&
XTYPE
(
XCONS
(
object
)
->
car
)
==
Lisp_String
)
Lisp_Object
carcar
;
carcar
=
XCONS
(
XCONS
(
object
)
->
car
)
->
car
;
if
(
NILP
(
carcar
)
||
VECTORP
(
carcar
))
object
=
XCONS
(
object
)
->
cdr
;
}
}
...
...
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