(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 8387f8700361f660c10deccee93a02fbaab2abf0..20eb5bbf2a9435bc1ef54eb0c5b67a10bae64fbb 100644 (file)
--- 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;