From 85af630d59f4e4bc75fc9cbbe341198ff31f4aaa Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Mon, 25 Oct 2004 08:31:52 +0000 Subject: [PATCH] (process-file): Fix logic. --- lisp/ChangeLog | 2 ++ lisp/simple.el | 14 +++++++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 31ef1b514ef..21db50ad564 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * mouse-sel.el (mouse-sel-mode): Specify custom group. + * simple.el (process-file): Fix logic. + 2004-10-24 Luc Teirlinck * indent.el (set-left-margin, set-right-margin): Delete redundant diff --git a/lisp/simple.el b/lisp/simple.el index 05b8c859306..2665e4c7639 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1901,13 +1901,13 @@ value passed." (if fh (apply fh 'process-file program infile buffer display args) (when infile (setq lc (file-local-copy infile))) (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer))) - (make-temp-file "emacs")))) - (prog1 - (apply 'call-process program - (or lc infile) - (if stderr-file (list (car buffer) stderr-file) buffer) - display args) - (when stderr-file (copy-file stderr-file (cadr buffer)))) + (make-temp-file "emacs"))) + (prog1 + (apply 'call-process program + (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 (delete-file stderr-file)) (when lc (delete-file lc))))) -- 2.39.5