# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1027009836 0
# Node ID 4b1cc2afc2c8e6a1806057ac0413458bff2a771b
# Parent  b26b42483aeb9af6bf98ba40611c402531542ef2
(Fload) <!load_dangerous_libraries>: Don't leak fd.
<version == 20>: Refuse to load.

diff -r b26b42483aeb -r 4b1cc2afc2c8 src/lread.c
--- a/src/lread.c	Thu Jul 18 11:09:38 2002 +0000
+++ b/src/lread.c	Thu Jul 18 16:30:36 2002 +0000
@@ -758,8 +758,11 @@
 	    {
 	      safe_p = 0;
 	      if (!load_dangerous_libraries)
-		error ("File `%s' was not compiled in Emacs",
-		       XSTRING (found)->data);
+		{
+		  emacs_close (fd);
+		  error ("File `%s' was not compiled in Emacs",
+			 XSTRING (found)->data);
+		}
 	      else if (!NILP (nomessage))
 		message_with_string ("File `%s' not compiled in Emacs", found, 1);
 	    }
@@ -778,9 +781,15 @@
 
 	      if (fd >= 0)
 		emacs_close (fd);
+	      /* load-with-code-conversion currently fails with
+		 emacs-mule non-ASCII doc strings.  */
+	      error ("Can't currently load Emacs 20/1-compiled files: %s",
+		     XSTRING (found)->data);
+#if 0
 	      val = call4 (intern ("load-with-code-conversion"), found, file,
 			   NILP (noerror) ? Qnil : Qt,
 			   NILP (nomessage) ? Qnil : Qt);
+#endif
 	      return unbind_to (count, val);
 	    }