Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
8e4dfd54
Commit
8e4dfd54
authored
Nov 07, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* keymap.c (get_keymap_1): Don't try to autoload OBJECT's function
unless the autoload form indicates that it's a keymap.
parent
07d2b8de
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
13 additions
and
6 deletions
+13
-6
src/keymap.c
src/keymap.c
+13
-6
No files found.
src/keymap.c
View file @
8e4dfd54
...
...
@@ -205,19 +205,26 @@ get_keymap_1 (object, error, autoload)
if
(
CONSP
(
tem
)
&&
EQ
(
XCONS
(
tem
)
->
car
,
Qkeymap
))
return
tem
;
/* Should we do an autoload? */
/* Should we do an autoload? Autoload forms for keymaps have
Qkeymap as their fifth element. */
if
(
autoload
&&
XTYPE
(
object
)
==
Lisp_Symbol
&&
CONSP
(
tem
)
&&
EQ
(
XCONS
(
tem
)
->
car
,
Qautoload
))
{
struct
gcpro
gcpro1
,
gcpro2
;
Lisp_Object
tail
;
GCPRO2
(
tem
,
object
)
do_autoload
(
tem
,
object
);
UNGCPRO
;
tail
=
Fnth
(
make_number
(
4
),
tem
);
if
(
EQ
(
tail
,
Qkeymap
))
{
struct
gcpro
gcpro1
,
gcpro2
;
GCPRO2
(
tem
,
object
)
do_autoload
(
tem
,
object
);
UNGCPRO
;
goto
autoload_retry
;
goto
autoload_retry
;
}
}
if
(
error
)
...
...
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