diff options
Diffstat (limited to 'src/eval.c')
| -rw-r--r-- | src/eval.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/eval.c b/src/eval.c index 86859e4ddae..a6c58bc2425 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -103,7 +103,7 @@ Lisp_Object Vrun_hooks; | |||
| 103 | /* Non-nil means record all fset's and provide's, to be undone | 103 | /* Non-nil means record all fset's and provide's, to be undone |
| 104 | if the file being autoloaded is not fully loaded. | 104 | if the file being autoloaded is not fully loaded. |
| 105 | They are recorded by being consed onto the front of Vautoload_queue: | 105 | They are recorded by being consed onto the front of Vautoload_queue: |
| 106 | (FUN . ODEF) for a defun, (OFEATURES . nil) for a provide. */ | 106 | (FUN . ODEF) for a defun, (0 . OFEATURES) for a provide. */ |
| 107 | 107 | ||
| 108 | Lisp_Object Vautoload_queue; | 108 | Lisp_Object Vautoload_queue; |
| 109 | 109 | ||
| @@ -2022,8 +2022,8 @@ un_autoload (oldqueue) | |||
| 2022 | first = XCAR (queue); | 2022 | first = XCAR (queue); |
| 2023 | second = Fcdr (first); | 2023 | second = Fcdr (first); |
| 2024 | first = Fcar (first); | 2024 | first = Fcar (first); |
| 2025 | if (EQ (second, Qnil)) | 2025 | if (EQ (first, make_number (0))) |
| 2026 | Vfeatures = first; | 2026 | Vfeatures = second; |
| 2027 | else | 2027 | else |
| 2028 | Ffset (first, second); | 2028 | Ffset (first, second); |
| 2029 | queue = XCDR (queue); | 2029 | queue = XCDR (queue); |
| @@ -2069,7 +2069,7 @@ do_autoload (fundef, funname) | |||
| 2069 | second = Fcdr (first); | 2069 | second = Fcdr (first); |
| 2070 | first = Fcar (first); | 2070 | first = Fcar (first); |
| 2071 | 2071 | ||
| 2072 | if (CONSP (second) && EQ (XCAR (second), Qautoload)) | 2072 | if (SYMBOLP (first) && CONSP (second) && EQ (XCAR (second), Qautoload)) |
| 2073 | Fput (first, Qautoload, (XCDR (second))); | 2073 | Fput (first, Qautoload, (XCDR (second))); |
| 2074 | 2074 | ||
| 2075 | queue = XCDR (queue); | 2075 | queue = XCDR (queue); |