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

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

diff --git a/src/fns.c b/src/fns.c
index e1f5a34f46a..6a54ececb8d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2973,7 +2973,7 @@ is nil and `use-dialog-box' is non-nil.  */)
       {
 	Lisp_Object pargs[3];
 
-	/* Colorize prompt accordingly to `minibuffer-prompt' face.  */
+	/* Colorize prompt according to `minibuffer-prompt' face.  */
 	pargs[0] = build_string ("%s(y or n) ");
 	pargs[1] = intern ("face");
 	pargs[2] = intern ("minibuffer-prompt");
@@ -3250,6 +3250,10 @@ The normal messages at start and end of loading FILENAME are suppressed.  */)
     {
       int count = specpdl_ptr - specpdl;
       int nesting = 0;
+
+      if (! NILP (Vpurify_flag))
+	error ("(require %s) while preparing to dump",
+	       XSYMBOL (feature)->name->data);
       
       /* A certain amount of recursive `require' is legitimate,
 	 but if we require the same feature recursively 3 times,