From ab4db096fda2ef9f24ff3efc4fb79baabce68621 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Apr 2002 17:46:26 +0000 Subject: [PATCH] (do_autoload): Error if called while preparing to dump. --- src/eval.c | 4 ++++ 1 file changed, 4 insertions(+) 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); -- 2.39.5