[Emacs-diffs] Changes to emacs/src/fns.c

[Richard M. Stallman]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.309 emacs/src/fns.c:1.310
*** emacs/src/fns.c:1.309       Mon Apr 22 18:45:12 2002
--- emacs/src/fns.c     Tue Apr 30 13:46:40 2002
***************
*** 2973,2979 ****
        {
        Lisp_Object pargs[3];
  
!       /* Colorize prompt accordingly to `minibuffer-prompt' face.  */
        pargs[0] = build_string ("%s(y or n) ");
        pargs[1] = intern ("face");
        pargs[2] = intern ("minibuffer-prompt");
--- 2973,2979 ----
        {
        Lisp_Object pargs[3];
  
!       /* 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,3255 ****
--- 3250,3259 ----
      {
        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,