Subject: bug#11647: 24.1; Document return value of load-source-file-function

From: Christopher Schmidt <[email-masked]>
Date: Sun, 24 Jun 2012 16:25:31 +0100 (BST)

=== modified file 'src/ChangeLog'
--- src/ChangeLog	2012-06-24 04:11:19 +0000
+++ src/ChangeLog	2012-06-24 15:24:00 +0000
@@ -1,3 +1,7 @@
+2012-06-24  Christopher Schmidt  <[email-masked]>
+
+	* lread.c (syms_of_lread): Doc fix (Bug#11647).
+
 2012-06-24  Paul Eggert  <[email-masked]>
 
 	Fix bug when time_t is unsigned and as wide as intmax_t (Bug#9000).

=== modified file 'src/lread.c'
--- src/lread.c	2012-06-22 21:17:42 +0000
+++ src/lread.c	2012-06-24 15:22:30 +0000
@@ -4501,11 +4501,11 @@
 
   DEFVAR_LISP ("load-source-file-function", Vload_source_file_function,
 	       doc: /* Function called in `load' for loading an Emacs Lisp source file.
-This function is for doing code conversion before reading the source file.
-If nil, loading is done without any code conversion.
-Arguments are FULLNAME, FILE, NOERROR, NOMESSAGE, where
- FULLNAME is the full name of FILE.
-See `load' for the meaning of the remaining arguments.  */);
+This function is for doing code conversion before reading the source
+file.  It should return t if the file exists and loads successfully.
+If nil, loading is done without any code conversion.  Arguments are
+FULLNAME, FILE, NOERROR, NOMESSAGE, where FULLNAME is the full name of
+FILE.  See `load' for the meaning of the remaining arguments.  */);
   Vload_source_file_function = Qnil;
 
   DEFVAR_BOOL ("load-force-doc-strings", load_force_doc_strings,

OK to commit?

        Christopher