From: Kenichi Handa <handa@m17n.org>
Date: Thu, 25 Jul 2002 01:30:27 +0000 (+0000)
Subject: (Fload): Don't load with Qload_force_doc_strings t if
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~540
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ab2a47e1cc2143009675bfc6b59fbdd4dc5a436e;p=emacs.git

(Fload): Don't load with Qload_force_doc_strings t if
version is 0.
---

diff --git a/src/lread.c b/src/lread.c
index 3d4a6394185..7b3b5326e67 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1029,7 +1029,7 @@ Return t if file exists.  */)
   load_descriptor_list
     = Fcons (make_number (fileno (stream)), load_descriptor_list);
   load_in_progress++;
-  if (version >= 22)
+  if (! version || version >= 22)
     readevalloop (Qget_file_char, stream, file, Feval, 0, Qnil, Qnil);
   else
     {