Mercurial > emacs
changeset 45037:8fe017cea042
(Frequire): Error if called while preparing to dump.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Apr 2002 17:46:40 +0000 |
| parents | 184909bcbc7b |
| children | 8db238933124 |
| files | src/fns.c |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fns.c Tue Apr 30 17:46:26 2002 +0000 +++ b/src/fns.c Tue Apr 30 17:46:40 2002 +0000 @@ -2973,7 +2973,7 @@ { 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 @@ { 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,