From: Erik Naggum <erik@naggum.no>
Date: Thu, 27 Feb 1997 19:08:35 +0000 (+0000)
Subject: (Fload): Call Vload_source_file_function with 4 args.
X-Git-Tag: emacs-20.1~2820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7075e5a56ae6a07a4eea4f8ca8e2d25abdab1fba;p=emacs.git

(Fload): Call Vload_source_file_function with 4 args.
---

diff --git a/src/lread.c b/src/lread.c
index 4e2ed5ccd2a..882b09bf5a3 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -483,7 +483,7 @@ Return t if file exists.")
       if (!NILP (Vload_source_file_function))
 	{
 	  close (fd);
-	  return call3 (Vload_source_file_function, found, file,
+	  return call4 (Vload_source_file_function, found, file,
 			NILP (noerror) ? Qnil : Qt,
 			NILP (nomessage) ? Qnil : Qt);
 	}