Mercurial > emacs
diff src/fileio.c @ 6367:8cabc16e824f
(Frename_file): Use RETURN_UNGCPRO when run handler.
(Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 15 Mar 1994 18:50:50 +0000 |
| parents | c7e1f551e97a |
| children | 51a014b7c656 |
line wrap: on
line diff
--- a/src/fileio.c Tue Mar 15 06:49:39 1994 +0000 +++ b/src/fileio.c Tue Mar 15 18:50:50 1994 +0000 @@ -1715,8 +1715,8 @@ 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 @@ 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 @@ 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 @@ 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)