From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Mon, 25 Oct 2004 08:31:52 +0000 (+0000)
Subject: (process-file): Fix logic.
X-Git-Tag: ttn-vms-21-2-B4~4411
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=85af630d59f4e4bc75fc9cbbe341198ff31f4aaa;p=emacs.git

(process-file): Fix logic.
---

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  <teirllm@auburn.edu>
 
 	* 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)))))