(openp): Get the Qfile_exists_p handler for STRING, not FN.

diff --git a/src/ChangeLog b/src/ChangeLog
index 4cd53e526cb437dae91d05e0367a6b1ff7684a50..9d6afda24d14c3d90ccf76959ca759620b1ad021 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2003-04-08  Richard M. Stallman  <rms@gnu.org>
+
+       * fileio.c (Finsert_file_contents): Doc fix.
+       (syms_of_fileio) <after-insert-file-functions>: Doc fix.
+
+2003-04-08  Ivan Zakharyaschev  <imz@altlinux.org>  (tiny change)
+       
+       * lread.c (openp): Get the Qfile_exists_p handler for STRING, not FN.
+
 2003-04-08  Steven Tamm  <steventamm@mac.com>
        * mac.c (init_mac_osx_environment): Switch libexec and bin so
        that self-contained application finds libexec files.

diff --git a/src/lread.c b/src/lread.c
index dfbbfeaad1ec3f88d04b7c69bc6c1f28e5823c28..e4663e0eb89db1dba7c64b232a32bbf7349ef660 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1121,8 +1121,8 @@ openp (path, str, suffixes, storeptr, predicate)
                  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);
+         handler = Ffind_file_name_handler (string, Qfile_exists_p);
          if ((!NILP (handler) || !NILP (predicate)) && !NATNUMP (predicate))
             {
              if (NILP (predicate))