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
9ac66b45
Commit
9ac66b45
authored
Oct 14, 2007
by
Juanma Barranquero
Browse files
(do_autoload): Don't save autoloads.
parent
1a825e5d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
16 deletions
+2
-16
src/eval.c
src/eval.c
+2
-16
No files found.
src/eval.c
View file @
9ac66b45
...
...
@@ -466,7 +466,7 @@ usage: (prog1 FIRST BODY...) */)
struct gcpro gcpro1, gcpro2;
register int argnum = 0;
if (NILP(args))
if (NILP
(args))
return Qnil;
args_left = args;
...
...
@@ -2146,7 +2146,7 @@ do_autoload (fundef, funname)
Lisp_Object fundef, funname;
{
int count = SPECPDL_INDEX ();
Lisp_Object fun
, queue, first, second
;
Lisp_Object fun;
struct gcpro gcpro1, gcpro2, gcpro3;
/* This is to make sure that loadup.el gives a clear picture
...
...
@@ -2167,20 +2167,6 @@ do_autoload (fundef, funname)
Vautoload_queue = Qt;
Fload (Fcar (Fcdr (fundef)), Qnil, noninteractive ? Qt : Qnil, Qnil, Qt);
/* Save the old autoloads, in case we ever do an unload. */
queue = Vautoload_queue;
while (CONSP (queue))
{
first = XCAR (queue);
second = Fcdr (first);
first = Fcar (first);
if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload))
Fput (first, Qautoload, (XCDR (second)));
queue = XCDR (queue);
}
/* Once loading finishes, don't undo it. */
Vautoload_queue = Qt;
unbind_to (count, Qnil);
...
...
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