# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 899362916 0
# Node ID 9f320d762e2f900be26ffa88a9f1597706c1790c
# Parent  d19cd2986f18f915c6da7dda5553a400b22e9ac1
(Faccess_file): Check type of second argument STRING.

(Fread_file_name): Bind minibuffer-completing-file-name to t.

diff -r d19cd2986f18 -r 9f320d762e2f src/fileio.c
--- a/src/fileio.c	Thu Jul 02 07:01:21 1998 +0000
+++ b/src/fileio.c	Thu Jul 02 07:01:56 1998 +0000
@@ -2947,6 +2947,7 @@
   int fd;
 
   CHECK_STRING (filename, 0);
+  CHECK_STRING (string, 1);
 
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
@@ -5363,11 +5364,13 @@
   else
     insdef = Qnil, insdef1 = Qnil;
 
+  count = specpdl_ptr - specpdl;
 #ifdef VMS
-  count = specpdl_ptr - specpdl;
   specbind (intern ("completion-ignore-case"), Qt);
 #endif
 
+  specbind (intern ("minibuffer-completing-file-name"), Qt);
+
   GCPRO2 (insdef, default_filename);
   val = Fcompleting_read (prompt, intern ("read-file-name-internal"),
 			  dir, mustmatch, insdef1,
@@ -5392,10 +5395,7 @@
       val = build_string ("");
     }
 
-#ifdef VMS
   unbind_to (count, Qnil);
-#endif
-
   UNGCPRO;
   if (NILP (val))
     error ("No file name specified");