Commit bcb31b2a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent ab4db096
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment