* simple.el (process-file): Overwrite stderr file, if exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a25836da9968f05cba14d8e17e3a86cc2c4f18ab..2fd19c4a4676bf13e337a1b104b72d275aee0d55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-21  Michael Albinus  <michael.albinus@gmx.de>
+
+       * simple.el (process-file): Overwrite stderr file, if exists.
+
 2012-12-21  Daiki Ueno  <ueno@gnu.org>
 
        * epg.el (epg--start): Print GPG_AGENT_INFO in the debug buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index c0ba5477b56bf0a3d2c4d8b1cce9f7d98a03861a..635d1b0cda3c5f4454b0253a2002d5366ad70caf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2804,7 +2804,7 @@ value passed."
                      (or lc infile)
                      (if stderr-file (list (car buffer) stderr-file) buffer)
                      display args)
-            (when stderr-file (copy-file stderr-file (cadr buffer)))))
+            (when stderr-file (copy-file stderr-file (cadr buffer) t))))
       (when stderr-file (delete-file stderr-file))
       (when lc (delete-file lc)))))