From bcb31b2a36bee2e377a0ffb15371f3b821315608 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 30 Apr 2002 17:46:40 +0000 Subject: [PATCH] (Frequire): Error if called while preparing to dump. --- src/fns.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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, -- 2.39.2