(process-file): Fix logic.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 31ef1b514efb541a451f211300e28aae0cbed086..21db50ad5645f70dd54932706a67db081df76311 100644 (file)
--- 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 05b8c8593066cb5a57bbe9d8f19dfe66ac208e14..2665e4c7639e2b58bfd3e8c09755ea0d9f61a867 100644 (file)
--- 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)))))