diff options
| author | Richard M. Stallman | 1994-03-15 18:50:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-03-15 18:50:50 +0000 |
| commit | dc227f728522ec2da384832d8bb1ebe46fb771c1 (patch) | |
| tree | 5aee758330e5b5ecfab040d5685ae46544b29749 | |
| parent | 48ae5f0a1d4daebf66a46521f3fa567a92a88251 (diff) | |
| download | emacs-dc227f728522ec2da384832d8bb1ebe46fb771c1.tar.gz emacs-dc227f728522ec2da384832d8bb1ebe46fb771c1.zip | |
(Frename_file): Use RETURN_UNGCPRO when run handler.
(Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Likewise.
| -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.") | |||
| 1715 | if (NILP (handler)) | 1715 | if (NILP (handler)) |
| 1716 | handler = Ffind_file_name_handler (newname); | 1716 | handler = Ffind_file_name_handler (newname); |
| 1717 | if (!NILP (handler)) | 1717 | if (!NILP (handler)) |
| 1718 | return call5 (handler, Qcopy_file, filename, newname, | 1718 | return RETURN_UNGCPRO (call5 (handler, Qcopy_file, filename, newname, |
| 1719 | ok_if_already_exists, keep_date); | 1719 | ok_if_already_exists, keep_date)); |
| 1720 | 1720 | ||
| 1721 | if (NILP (ok_if_already_exists) | 1721 | if (NILP (ok_if_already_exists) |
| 1722 | || XTYPE (ok_if_already_exists) == Lisp_Int) | 1722 | || XTYPE (ok_if_already_exists) == Lisp_Int) |
| @@ -1890,8 +1890,8 @@ This is what happens in interactive use with M-x.") | |||
| 1890 | if (NILP (handler)) | 1890 | if (NILP (handler)) |
| 1891 | handler = Ffind_file_name_handler (newname); | 1891 | handler = Ffind_file_name_handler (newname); |
| 1892 | if (!NILP (handler)) | 1892 | if (!NILP (handler)) |
| 1893 | return call4 (handler, Qrename_file, | 1893 | return RETURN_UNGCPRO (call4 (handler, Qrename_file, |
| 1894 | filename, newname, ok_if_already_exists); | 1894 | filename, newname, ok_if_already_exists)); |
| 1895 | 1895 | ||
| 1896 | if (NILP (ok_if_already_exists) | 1896 | if (NILP (ok_if_already_exists) |
| 1897 | || XTYPE (ok_if_already_exists) == Lisp_Int) | 1897 | || XTYPE (ok_if_already_exists) == Lisp_Int) |
| @@ -1953,8 +1953,8 @@ This is what happens in interactive use with M-x.") | |||
| 1953 | call the corresponding file handler. */ | 1953 | call the corresponding file handler. */ |
| 1954 | handler = Ffind_file_name_handler (filename); | 1954 | handler = Ffind_file_name_handler (filename); |
| 1955 | if (!NILP (handler)) | 1955 | if (!NILP (handler)) |
| 1956 | return call4 (handler, Qadd_name_to_file, filename, newname, | 1956 | return RETURN_UNGCPRO (call4 (handler, Qadd_name_to_file, filename, |
| 1957 | ok_if_already_exists); | 1957 | newname, ok_if_already_exists)); |
| 1958 | 1958 | ||
| 1959 | if (NILP (ok_if_already_exists) | 1959 | if (NILP (ok_if_already_exists) |
| 1960 | || XTYPE (ok_if_already_exists) == Lisp_Int) | 1960 | || XTYPE (ok_if_already_exists) == Lisp_Int) |
| @@ -2007,8 +2007,8 @@ This happens for interactive use with M-x.") | |||
| 2007 | call the corresponding file handler. */ | 2007 | call the corresponding file handler. */ |
| 2008 | handler = Ffind_file_name_handler (filename); | 2008 | handler = Ffind_file_name_handler (filename); |
| 2009 | if (!NILP (handler)) | 2009 | if (!NILP (handler)) |
| 2010 | return call4 (handler, Qmake_symbolic_link, filename, linkname, | 2010 | return RETURN_UNGCPRO (call4 (handler, Qmake_symbolic_link, filename, |
| 2011 | ok_if_already_exists); | 2011 | linkname, ok_if_already_exists)); |
| 2012 | 2012 | ||
| 2013 | if (NILP (ok_if_already_exists) | 2013 | if (NILP (ok_if_already_exists) |
| 2014 | || XTYPE (ok_if_already_exists) == Lisp_Int) | 2014 | || XTYPE (ok_if_already_exists) == Lisp_Int) |