# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 870663611 0
# Node ID 266915689f9e68ae16d02270c5e370ef6e03738d
# Parent  5e2c2c7ca25eaed0a433318475064c70e3112085
(Fload): New optional arg MUST-SUFFIX.

diff -r 5e2c2c7ca25e -r 266915689f9e src/lread.c
--- a/src/lread.c	Mon Aug 04 02:57:47 1997 +0000
+++ b/src/lread.c	Mon Aug 04 03:00:11 1997 +0000
@@ -384,7 +384,7 @@
 static Lisp_Object load_unwind ();
 static Lisp_Object load_descriptor_unwind ();
 
-DEFUN ("load", Fload, Sload, 1, 4, 0,
+DEFUN ("load", Fload, Sload, 1, 5, 0,
   "Execute a file of Lisp code named FILE.\n\
 First try FILE with `.elc' appended, then try with `.el',\n\
  then try FILE unmodified.\n\
@@ -395,9 +395,11 @@
  optional third arg NOMESSAGE is non-nil.\n\
 If optional fourth arg NOSUFFIX is non-nil, don't try adding\n\
  suffixes `.elc' or `.el' to the specified name FILE.\n\
+If optional fifth arg MUST-SUFFIX is non-nil, insist on adding\n\
+ the suffixe `.elc' or `.el'; don't accept just FILE.\n\
 Return t if file exists.")
-  (file, noerror, nomessage, nosuffix)
-     Lisp_Object file, noerror, nomessage, nosuffix;
+  (file, noerror, nomessage, nosuffix, must_suffix)
+     Lisp_Object file, noerror, nomessage, nosuffix, must_suffix;
 {
   register FILE *stream;
   register int fd = -1;
@@ -432,7 +434,10 @@
   if (XSTRING (file)->size > 0)
     {
       GCPRO1 (file);
-      fd = openp (Vload_path, file, !NILP (nosuffix) ? "" : ".elc:.el:",
+      fd = openp (Vload_path, file,
+		  (!NILP (nosuffix) ? ""
+		   : ! NILP (must_suffix) ? ".elc:.el"
+		   : ".elc:.el:"),
 		  &found, 0);
       UNGCPRO;
     }