From a79485afb88f0ebe679b91c128e9c9dd5a98b9a4 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 2 Jul 1998 07:01:56 +0000
Subject: [PATCH] (Faccess_file): Check type of second argument STRING.

(Fread_file_name): Bind minibuffer-completing-file-name to t.
---
 src/fileio.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/fileio.c b/src/fileio.c
index 47dfc37ba4..f4bcf1bf77 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2947,6 +2947,7 @@ If there is no error, we return nil.")
   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 @@ DIR defaults to current buffer's directory default.")
   else
     insdef = Qnil, insdef1 = Qnil;
 
-#ifdef VMS
   count = specpdl_ptr - specpdl;
+#ifdef VMS
   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 @@ DIR defaults to current buffer's directory default.")
       val = build_string ("");
     }
 
-#ifdef VMS
   unbind_to (count, Qnil);
-#endif
-
   UNGCPRO;
   if (NILP (val))
     error ("No file name specified");
-- 
2.20.1