From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 7 Dec 2002 21:39:50 +0000 (+0000)
Subject: (Fcopy_file): Set immediate_quit around emacs_open call.
X-Git-Tag: ttn-vms-21-2-B4~12110
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=133369080ea6aab23749300eda51276a018f0f9d;p=emacs.git

(Fcopy_file): Set immediate_quit around emacs_open call.
---

diff --git a/src/fileio.c b/src/fileio.c
index 890ef2de371..a8d27f0ef2d 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2429,7 +2429,10 @@ A prefix arg makes KEEP-TIME non-nil.  */)
       SetFileAttributes (filename, attributes);
     }
 #else /* not WINDOWSNT */
+  immediate_quit = 1;
   ifd = emacs_open (SDATA (encoded_file), O_RDONLY, 0);
+  immediate_quit = 0;
+
   if (ifd < 0)
     report_file_error ("Opening input file", Fcons (file, Qnil));