mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-14 09:39:42 +00:00
Code Issues Releases Activity

(syms_of_lread)<recursive-load-depth-limit>: Raise to

Browse Source 
50.
This commit is contained in:
Gerd Moellmann 2001-10-23 14:08:08 +00:00
parent 1d500ca6e8
commit 990ff03c4d
1 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/lread.c
View File

@ -832,8 +832,8 @@ Return t if file exists.")
GCPRO1 (file);
lispstream = Fcons (Qnil, Qnil);
XSETCARFASTINT (lispstream, (EMACS_UINT)stream >> 16);
XSETCDRFASTINT (lispstream, (EMACS_UINT)stream & 0xffff);
XSETFASTINT (XCAR (lispstream), (EMACS_UINT)stream >> 16);
XSETFASTINT (XCDR (lispstream), (EMACS_UINT)stream & 0xffff);
record_unwind_protect (load_unwind, lispstream);
record_unwind_protect (load_descriptor_unwind, load_descriptor_list);
specbind (Qload_file_name, found);
@ -963,19 +963,16 @@ openp (path, str, suffixes, storeptr, exec_only)
Lisp_Object string, tail;
int max_suffix_len = 0;
for (tail = suffixes; CONSP (tail); tail = XCDR (tail))
{
CHECK_STRING (XCAR (tail), 0);
max_suffix_len = max (max_suffix_len,
STRING_BYTES (XSTRING (XCAR (tail))));
}
string = filename = Qnil;
GCPRO5 (str, string, filename, path, suffixes);
for (tail = suffixes; CONSP (tail); tail = XCDR (tail))
{
string = XCAR (tail);
CHECK_STRING (string, 0);
if (! EQ (string, XCAR (tail)))
XSETCAR (tail, string);
max_suffix_len = max (max_suffix_len,
STRING_BYTES (XSTRING (string)));
}
if (storeptr)
*storeptr = Qnil;
@ -2727,7 +2724,7 @@ read_list (flag, readcharfun)
{
GCPRO2 (val, tail);
if (!NILP (tail))
XSETCDR (tail, read0 (readcharfun));
XCDR (tail) = read0 (readcharfun);
else
val = read0 (readcharfun);
read1 (readcharfun, &ch, 0);
@ -2820,7 +2817,7 @@ read_list (flag, readcharfun)
? pure_cons (elt, Qnil)
: Fcons (elt, Qnil));
if (!NILP (tail))
XSETCDR (tail, tem);
XCDR (tail) = tem;
else
val = tem;
tail = tem;
@ -3656,7 +3653,7 @@ to load. See also `load-dangerous-libraries'.");
"Limit for depth of recursive loads.\n\
Value should be either an integer > 0 specifying the limit, or nil for\n\
no limit.");
Vrecursive_load_depth_limit = make_number (10);
Vrecursive_load_depth_limit = make_number (50);
/* Vsource_directory was initialized in init_lread. */