aboutsummaryrefslogtreecommitdiffstats
path: root/src/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/eval.c')
-rw-r--r--src/eval.c8
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
108Lisp_Object Vautoload_queue; 108Lisp_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);