From 0e9c7693712014196946a83709a83c08a7dfea25 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 21 Dec 2012 09:10:26 +0100 Subject: [PATCH] * simple.el (process-file): Overwrite stderr file, if exists. --- lisp/ChangeLog | 4 ++++ lisp/simple.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a25836da996..2fd19c4a467 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-12-21 Michael Albinus + + * simple.el (process-file): Overwrite stderr file, if exists. + 2012-12-21 Daiki Ueno * epg.el (epg--start): Print GPG_AGENT_INFO in the debug buffer. diff --git a/lisp/simple.el b/lisp/simple.el index c0ba5477b56..635d1b0cda3 100644 --- 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))))) -- 2.39.5