From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 30 Apr 2002 17:46:26 +0000 (+0000)
Subject: (do_autoload): Error if called while preparing to dump.
X-Git-Tag: ttn-vms-21-2-B4~15263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab4db096fda2ef9f24ff3efc4fb79baabce68621;p=emacs.git

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

diff --git a/src/eval.c b/src/eval.c
index b10842b62c8..3465ea785a7 100644
--- 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);