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

[Christopher Schmidt <christopher@ch.ristopher.com>]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: load-source-file-function.diff --]
[-- Type: text/x-diff, Size: 1417 bytes --]

=== 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  <christopher@ch.ristopher.com>
+
+	* lread.c (syms_of_lread): Doc fix (Bug#11647).
+
 2012-06-24  Paul Eggert  <eggert@cs.ucla.edu>
 
 	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,


[-- Attachment #2: Type: text/plain, Size: 36 bytes --]


OK to commit?

        Christopher