diff options
| author | Juanma Barranquero | 2007-10-14 17:20:53 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-10-14 17:20:53 +0000 |
| commit | d945992e32fd243aef865d770c1d6b97e547f200 (patch) | |
| tree | dc65a1aa312156f643b603927c6adc425edcf102 /src/eval.c | |
| parent | 9099b37326fe09c2ed2763aefbcba7176583bf9d (diff) | |
| download | emacs-d945992e32fd243aef865d770c1d6b97e547f200.tar.gz emacs-d945992e32fd243aef865d770c1d6b97e547f200.zip | |
(do_autoload): Don't save autoloads.
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/src/eval.c b/src/eval.c index 77abe5046db..b69eea44c75 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2178,7 +2178,7 @@ do_autoload (fundef, funname) | |||
| 2178 | Lisp_Object fundef, funname; | 2178 | Lisp_Object fundef, funname; |
| 2179 | { | 2179 | { |
| 2180 | int count = SPECPDL_INDEX (); | 2180 | int count = SPECPDL_INDEX (); |
| 2181 | Lisp_Object fun, queue, first, second; | 2181 | Lisp_Object fun; |
| 2182 | struct gcpro gcpro1, gcpro2, gcpro3; | 2182 | struct gcpro gcpro1, gcpro2, gcpro3; |
| 2183 | 2183 | ||
| 2184 | /* This is to make sure that loadup.el gives a clear picture | 2184 | /* This is to make sure that loadup.el gives a clear picture |
| @@ -2199,20 +2199,6 @@ do_autoload (fundef, funname) | |||
| 2199 | Vautoload_queue = Qt; | 2199 | Vautoload_queue = Qt; |
| 2200 | Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt); | 2200 | Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt); |
| 2201 | 2201 | ||
| 2202 | /* Save the old autoloads, in case we ever do an unload. */ | ||
| 2203 | queue = Vautoload_queue; | ||
| 2204 | while (CONSP (queue)) | ||
| 2205 | { | ||
| 2206 | first = XCAR (queue); | ||
| 2207 | second = Fcdr (first); | ||
| 2208 | first = Fcar (first); | ||
| 2209 | |||
| 2210 | if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload)) | ||
| 2211 | Fput (first, Qautoload, (XCDR (second))); | ||
| 2212 | |||
| 2213 | queue = XCDR (queue); | ||
| 2214 | } | ||
| 2215 | |||
| 2216 | /* Once loading finishes, don't undo it. */ | 2202 | /* Once loading finishes, don't undo it. */ |
| 2217 | Vautoload_queue = Qt; | 2203 | Vautoload_queue = Qt; |
| 2218 | unbind_to (count, Qnil); | 2204 | unbind_to (count, Qnil); |