Commit 6a69efd7 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(Fload): Put code checking for recursive loads in #if 0.

parent 71246c2c
......@@ -708,6 +708,10 @@ Return t if file exists.")
return call5 (handler, Qload, found, noerror, nomessage, Qt);
#if 0 /* This is a good idea, but it doesn't quite work.
While compiling files, `provide's seem to not be evaluated.
Let's come back to this when there's more time. */
/* Check if we're loading this file again while another load
of the same file is already in progress. */
if (!NILP (Fmember (found, Vloads_in_progress)))
......@@ -715,6 +719,7 @@ Return t if file exists.")
Fcons (found, Vloads_in_progress)));
record_unwind_protect (record_load_unwind, Vloads_in_progress);
Vloads_in_progress = Fcons (found, Vloads_in_progress);
#endif /* 0 */
/* Load .elc files directly, but not when they are
remote and have no handler! */
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment