[Emacs-diffs] Changes to emacs/src/lread.c

[Richard M. Stallman]

Index: emacs/src/lread.c
diff -c emacs/src/lread.c:1.312 emacs/src/lread.c:1.313
*** emacs/src/lread.c:1.312     Fri Mar 14 18:04:57 2003
--- emacs/src/lread.c   Tue Apr  8 13:10:07 2003
***************
*** 1121,1128 ****
                  handler = Ffind_file_name_handler (filename, Qfile_exists_p);
             It's not clear why that was the case and it breaks things like
             (load "/bar.el") where the file is actually "/bar.el.gz".  */
-         handler = Ffind_file_name_handler (filename, Qfile_exists_p);
          string = build_string (fn);
          if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate))
              {
              if (NILP (predicate))
--- 1121,1128 ----
                  handler = Ffind_file_name_handler (filename, Qfile_exists_p);
             It's not clear why that was the case and it breaks things like
             (load "/bar.el") where the file is actually "/bar.el.gz".  */
          string = build_string (fn);
+         handler = Ffind_file_name_handler (string, Qfile_exists_p);
          if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate))
              {
              if (NILP (predicate))