From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 8 Aug 1997 20:06:34 +0000 (+0000)
Subject: (Frequire): Don't insist on a suffix
X-Git-Tag: emacs-20.1~724
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fdb5bec0467c67ca1c60d7c3bfd60552c58d3ff6;p=emacs.git

(Frequire): Don't insist on a suffix
if the file name argument was explicitly specified.
---

diff --git a/src/fns.c b/src/fns.c
index 8387f870036..20eb5bbf2a9 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1959,12 +1959,12 @@ If FILENAME is omitted, the printname of FEATURE is used as the file name.")
       Vautoload_queue = Qt;
 
       Fload (NILP (file_name) ? Fsymbol_name (feature) : file_name,
-	     Qnil, Qt, Qnil, Qt);
+	     Qnil, Qt, Qnil, (NILP (file_name) ? Qt : Qnil));
 
       tem = Fmemq (feature, Vfeatures);
       if (NILP (tem))
 	error ("Required feature %s was not provided",
-	       XSYMBOL (feature)->name->data );
+	       XSYMBOL (feature)->name->data);
 
       /* Once loading finishes, don't undo it.  */
       Vautoload_queue = Qt;