Commit a79485af authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Faccess_file): Check type of second argument STRING.

(Fread_file_name): Bind minibuffer-completing-file-name to t.
parent ccf330a6
......@@ -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");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment