Mercurial > emacs

changeset 48087:cae822515e00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fload) <!load_dangerous_libraries>: Close fd.
author Dave Love <fx@gnu.org>
date Wed, 30 Oct 2002 19:15:17 +0000
parents b61109579f17
children 9618c046ce89
files src/lread.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Wed Oct 30 19:13:10 2002 +0000
+++ b/src/lread.c	Wed Oct 30 19:15:17 2002 +0000
@@ -793,8 +793,12 @@
 	    {
 	      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);
 	    }