comparison src/lread.c @ 41463:078a3890c752

(Fload): Detect recursive load error for more than 3 nestings of the same file. (Vrecursive_load_depth_limit): Variable deleted. (syms_of_lread) <recursive-load-depth-limit>: Variable deleted.

41462:e251356bc766

/* A list of file names for files being loaded in Fload.  Used to
   check for recursive loads.  */

static Lisp_Object Vloads_in_progress;

/* Limit of the depth of recursive loads.  */

Lisp_Object Vrecursive_load_depth_limit;

/* Non-zero means load dangerous compiled Lisp files.  */

int load_dangerous_libraries;

     evaluted, see font-lock.el/jit-lock.el as an example.  This
     leads to a certain amount of ``normal'' recursion.

     Also, just loading a file recursively is not always an error in
     the general case; the second load may do something different.  */
  if (INTEGERP (Vrecursive_load_depth_limit)
      && XINT (Vrecursive_load_depth_limit) > 0)
    {
      Lisp_Object len = Flength (Vloads_in_progress);
      if (XFASTINT (len) > XFASTINT (Vrecursive_load_depth_limit))
	Fsignal (Qerror, Fcons (build_string ("Recursive load suspected"),
				Fcons (found, Vloads_in_progress)));
      record_unwind_protect (record_load_unwind, Vloads_in_progress);
      Vloads_in_progress = Fcons (found, Vloads_in_progress);
    }

  if (!bcmp (&(XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 4]),
	     ".elc", 4))
    /* Load .elc files directly, but not when they are
       remote and have no handler!  */

When the regular expression matches, the file is considered to be safe
to load.  See also `load-dangerous-libraries'.  */);
  Vbytecomp_version_regexp
    = build_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)");

  DEFVAR_LISP ("recursive-load-depth-limit", &Vrecursive_load_depth_limit,
	       doc: /* Limit for depth of recursive loads.
Value should be either an integer > 0 specifying the limit, or nil for
no limit.  */);
  Vrecursive_load_depth_limit = make_number (50);

  /* Vsource_directory was initialized in init_lread.  */

  load_descriptor_list = Qnil;
  staticpro (&load_descriptor_list);

41463:078a3890c752

/* A list of file names for files being loaded in Fload.  Used to
   check for recursive loads.  */

static Lisp_Object Vloads_in_progress;

/* Non-zero means load dangerous compiled Lisp files.  */

int load_dangerous_libraries;

     evaluted, see font-lock.el/jit-lock.el as an example.  This
     leads to a certain amount of ``normal'' recursion.

     Also, just loading a file recursively is not always an error in
     the general case; the second load may do something different.  */
  {
    int count = 0;
    Lisp_Object tem;
    for (tem = Vloads_in_progress; CONSP (tem); tem = XCDR (tem))
      if (!NILP (Fequal (found, XCAR (tem))))
	count++;
    if (count > 3)
      Fsignal (Qerror, Fcons (build_string ("Recursive load"),
			      Fcons (found, Vloads_in_progress)));
    record_unwind_protect (record_load_unwind, Vloads_in_progress);
    Vloads_in_progress = Fcons (found, Vloads_in_progress);
  }

  if (!bcmp (&(XSTRING (found)->data[STRING_BYTES (XSTRING (found)) - 4]),
	     ".elc", 4))
    /* Load .elc files directly, but not when they are
       remote and have no handler!  */

When the regular expression matches, the file is considered to be safe
to load.  See also `load-dangerous-libraries'.  */);
  Vbytecomp_version_regexp
    = build_string ("^;;;.\\(in Emacs version\\|bytecomp version FSF\\)");

  /* Vsource_directory was initialized in init_lread.  */

  load_descriptor_list = Qnil;
  staticpro (&load_descriptor_list);