Mercurial > emacs

changeset 57688:4d4bfb9781e1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(process-file): Fix logic.
author Kai Großjohann <kgrossjo@eu.uu.net>
date Mon, 25 Oct 2004 08:31:52 +0000
parents 5a8b58d927d6
children 7d1234b2a407
files lisp/ChangeLog lisp/simple.el
diffstat 2 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Mon Oct 25 08:29:12 2004 +0000
+++ b/lisp/ChangeLog	Mon Oct 25 08:31:52 2004 +0000
@@ -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
--- a/lisp/simple.el	Mon Oct 25 08:29:12 2004 +0000
+++ b/lisp/simple.el	Mon Oct 25 08:31:52 2004 +0000
@@ -1901,13 +1901,13 @@
         (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)))))