(do_autoload): Error if called while preparing to dump.

diff --git a/src/eval.c b/src/eval.c
index b10842b62c8250bc6d13e1926a0651ba096f2fb4..3465ea785a7e914fede6dd7f1a6ad5bad9f5c646 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -1906,6 +1906,10 @@ do_autoload (fundef, funname)
   Lisp_Object fun, queue, first, second;
   struct gcpro gcpro1, gcpro2, gcpro3;
 
+  if (! NILP (Vpurify_flag))
+    error ("Attempt to autoload %s while preparing to dump",
+          XSYMBOL (funname)->name->data);
+
   fun = funname;
   CHECK_SYMBOL (funname);
   GCPRO3 (fun, funname, fundef);