Mercurial > emacs
changeset 22658:9f320d762e2f
(Faccess_file): Check type of second argument STRING.
(Fread_file_name): Bind minibuffer-completing-file-name to t.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 02 Jul 1998 07:01:56 +0000 |
| parents | d19cd2986f18 |
| children | 8dda497e707d |
| files | src/fileio.c |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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");