diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-15 18:50:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-15 18:50:50 +0000 |
| commit | dc227f728522ec2da384832d8bb1ebe46fb771c1 (patch) | |
| tree | 5aee758330e5b5ecfab040d5685ae46544b29749 /src/fileio.c | |
| parent | 48ae5f0a1d4daebf66a46521f3fa567a92a88251 (diff) | |
| download | emacs-dc227f728522ec2da384832d8bb1ebe46fb771c1.tar.gz | |
(Frename_file): Use RETURN_UNGCPRO when run handler.
(Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Likewise.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/fileio.c b/src/fileio.c index ac32a442a9e..3929cbd45b4 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1715,8 +1715,8 @@ A prefix arg makes KEEP-TIME non-nil.") if (NILP (handler)) handler = Ffind_file_name_handler (newname); if (!NILP (handler)) - return call5 (handler, Qcopy_file, filename, newname, - ok_if_already_exists, keep_date); + return RETURN_UNGCPRO (call5 (handler, Qcopy_file, filename, newname, + ok_if_already_exists, keep_date)); if (NILP (ok_if_already_exists) || XTYPE (ok_if_already_exists) == Lisp_Int) @@ -1890,8 +1890,8 @@ This is what happens in interactive use with M-x.") if (NILP (handler)) handler = Ffind_file_name_handler (newname); if (!NILP (handler)) - return call4 (handler, Qrename_file, - filename, newname, ok_if_already_exists); + return RETURN_UNGCPRO (call4 (handler, Qrename_file, + filename, newname, ok_if_already_exists)); if (NILP (ok_if_already_exists) || XTYPE (ok_if_already_exists) == Lisp_Int) @@ -1953,8 +1953,8 @@ This is what happens in interactive use with M-x.") call the corresponding file handler. */ handler = Ffind_file_name_handler (filename); if (!NILP (handler)) - return call4 (handler, Qadd_name_to_file, filename, newname, - ok_if_already_exists); + return RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, filename, + newname, ok_if_already_exists)); if (NILP (ok_if_already_exists) || XTYPE (ok_if_already_exists) == Lisp_Int) @@ -2007,8 +2007,8 @@ This happens for interactive use with M-x.") call the corresponding file handler. */ handler = Ffind_file_name_handler (filename); if (!NILP (handler)) - return call4 (handler, Qmake_symbolic_link, filename, linkname, - ok_if_already_exists); + return RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, + linkname, ok_if_already_exists)); if (NILP (ok_if_already_exists) || XTYPE (ok_if_already_exists) == Lisp_Int) |