From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 15 Mar 1994 18:50:50 +0000 (+0000)
Subject: (Frename_file): Use RETURN_UNGCPRO when run handler.
X-Git-Tag: emacs-19.34~9485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc227f728522ec2da384832d8bb1ebe46fb771c1;p=emacs.git

(Frename_file): Use RETURN_UNGCPRO when run handler.
(Fcopy_file, Fadd_name_to_file, Fmake_symbolic_link): Likewise.
---

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)