comparison src/fns.c @ 45037:8fe017cea042

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

45036:184909bcbc7b

      choose_minibuf_frame ();

      {
	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");
	args[0] = Fpropertize (3, pargs);
	args[1] = xprompt;

  
  if (NILP (tem))
    {
      int count = specpdl_ptr - specpdl;
      int nesting = 0;
      
      /* A certain amount of recursive `require' is legitimate,
	 but if we require the same feature recursively 3 times,
	 signal an error.  */
      tem = require_nesting_list;

45037:8fe017cea042

      choose_minibuf_frame ();

      {
	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");
	args[0] = Fpropertize (3, pargs);
	args[1] = xprompt;

  
  if (NILP (tem))
    {
      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,
	 signal an error.  */
      tem = require_nesting_list;