diff options
author | Dave Love <[email protected]> | 2002-10-30 19:15:17 +0000 |
---|---|---|
committer | Dave Love <[email protected]> | 2002-10-30 19:15:17 +0000 |
commit | e63304b745e5f27ce84e74b1d0766174437db5ce (patch) | |
tree | 8fac5b2e606752428b0434fccfa3ead16fd8b25b /src/lread.c | |
parent | ed3230db334ef814bf518f814d01d1ff6d03b4c4 (diff) |
(Fload) <!load_dangerous_libraries>: Close fd.
Diffstat (limited to 'src/lread.c')
-rw-r--r-- | src/lread.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/lread.c b/src/lread.c index 5dc3cc9346..c60064bc7a 100644 --- a/src/lread.c +++ b/src/lread.c @@ -793,8 +793,12 @@ Return t if file exists. */) { safe_p = 0; if (!load_dangerous_libraries) - error ("File `%s' was not compiled in Emacs", - SDATA (found)); + { + if (fd >= 0) + emacs_close (fd); + error ("File `%s' was not compiled in Emacs", + SDATA (found)); + } else if (!NILP (nomessage)) message_with_string ("File `%s' not compiled in Emacs", found, 1); } |