Mercurial > emacs
changeset 8662:627a2ed242c0
(Ffile_accessible_directory_p): No need for gcpro.
(Fwrite_region): unbind_to should take two args.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Aug 1994 04:30:33 +0000 |
| parents | 7615ef8778de |
| children | 3f7bd8c32c9a |
| files | src/fileio.c |
| diffstat | 1 files changed, 1 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fileio.c Tue Aug 30 00:47:36 1994 +0000 +++ b/src/fileio.c Tue Aug 30 04:30:33 1994 +0000 @@ -2383,7 +2383,6 @@ { Lisp_Object handler; int tem; - struct gcpro gcpro1; /* If the file name has special constructs in it, call the corresponding file handler. */ @@ -2393,10 +2392,8 @@ /* Need to gcpro in case the first function call has a handler that causes filename to be relocated. */ - GCPRO1 (filename); tem = (NILP (Ffile_directory_p (filename)) || NILP (Ffile_executable_p (filename))); - UNGCPRO; return tem ? Qnil : Qt; } @@ -3271,9 +3268,7 @@ /* Discard the unwind protect for close_file_unwind. */ specpdl_ptr = specpdl + count1; /* Restore the original current buffer. */ - GCPRO1 (visit_file); - unbind_to (count); - UNGCPRO; + visit_file = unbind_to (count, visit_file); #ifdef CLASH_DETECTION if (!auto_saving)