Mercurial > emacs
diff lisp/simple.el @ 57688:4d4bfb9781e1
(process-file): Fix logic.
author | Kai Großjohann <kgrossjo@eu.uu.net> |
---|---|
date | Mon, 25 Oct 2004 08:31:52 +0000 |
parents | d9dc84198059 |
children | d50014ac219f 4056279af756 0fe073a08cef |
line wrap: on
line diff
--- 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)))))