# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1049821807 0
# Node ID 3a74e250f1a1b094d27a5eab3783c37247f85573
# Parent  15f94db2719974d09adab9c37fe15c1b014297ae
(openp): Get the Qfile_exists_p handler for STRING, not FN.

diff -r 15f94db27199 -r 3a74e250f1a1 src/lread.c
--- a/src/lread.c	Tue Apr 08 17:09:23 2003 +0000
+++ b/src/lread.c	Tue Apr 08 17:10:07 2003 +0000
@@ -1121,8 +1121,8 @@
 		  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))