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

[Eli Zaretskii]

Index: emacs/src/lread.c
diff -u emacs/src/lread.c:1.346 emacs/src/lread.c:1.347
--- emacs/src/lread.c:1.346     Fri Dec 30 04:54:57 2005
+++ emacs/src/lread.c   Fri Jan 20 19:53:36 2006
@@ -801,8 +801,12 @@
       if (!NILP (Fequal (found, XCAR (tem))))
        count++;
     if (count > 3)
-      Fsignal (Qerror, Fcons (build_string ("Recursive load"),
-                             Fcons (found, Vloads_in_progress)));
+      {
+       if (fd >= 0)
+         emacs_close (fd);
+       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);
   }