diff options
| author | Miles Bader | 2007-10-27 09:07:17 +0000 |
|---|---|---|
| committer | Miles Bader | 2007-10-27 09:07:17 +0000 |
| commit | fdc9061358d3654e14bfc1419632e1d6c6c5c13e (patch) | |
| tree | 00f5484d576513deddd938a9a277d0db860b9a5b /src/eval.c | |
| parent | ebe4c71027cd6ec8583631e895e7fdd3decfc099 (diff) | |
| parent | b6ff295c434269fe824ec47cbfc87c6a02dfd94d (diff) | |
| download | emacs-fdc9061358d3654e14bfc1419632e1d6c6c5c13e.tar.gz emacs-fdc9061358d3654e14bfc1419632e1d6c6c5c13e.zip | |
Merge from emacs--rel--22
Patches applied:
* emacs--rel--22 (patch 131-137)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 261-262)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-908
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/eval.c b/src/eval.c index eaa1a6855f6..7f5f58a2e81 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -2194,7 +2194,14 @@ do_autoload (fundef, funname) | |||
| 2194 | /* Preserve the match data. */ | 2194 | /* Preserve the match data. */ |
| 2195 | record_unwind_save_match_data (); | 2195 | record_unwind_save_match_data (); |
| 2196 | 2196 | ||
| 2197 | /* Value saved here is to be restored into Vautoload_queue. */ | 2197 | /* If autoloading gets an error (which includes the error of failing |
| 2198 | to define the function being called), we use Vautoload_queue | ||
| 2199 | to undo function definitions and `provide' calls made by | ||
| 2200 | the function. We do this in the specific case of autoloading | ||
| 2201 | because autoloading is not an explicit request "load this file", | ||
| 2202 | but rather a request to "call this function". | ||
| 2203 | |||
| 2204 | The value saved here is to be restored into Vautoload_queue. */ | ||
| 2198 | record_unwind_protect (un_autoload, Vautoload_queue); | 2205 | record_unwind_protect (un_autoload, Vautoload_queue); |
| 2199 | Vautoload_queue = Qt; | 2206 | Vautoload_queue = Qt; |
| 2200 | Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt); | 2207 | Fload (Fcar (Fcdr (fundef)), Qnil, Qt, Qnil, Qt); |