diff options
author | Richard M. Stallman <[email protected]> | 1998-07-02 07:01:56 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1998-07-02 07:01:56 +0000 |
commit | a79485afb88f0ebe679b91c128e9c9dd5a98b9a4 (patch) | |
tree | 74250933658fd1af8a30caa75558474419e93a93 /src/fileio.c | |
parent | ccf330a66be0bcd2f961317103a819e03f6a86bb (diff) |
(Faccess_file): Check type of second argument STRING.
(Fread_file_name): Bind minibuffer-completing-file-name to t.
Diffstat (limited to 'src/fileio.c')
-rw-r--r-- | src/fileio.c | 8 |
1 files 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"); |