[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el
From: |
Kai Großjohann |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el |
Date: |
Mon, 25 Oct 2004 04:37:04 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.663 emacs/lisp/simple.el:1.664
*** emacs/lisp/simple.el:1.663 Sun Oct 24 09:06:05 2004
--- emacs/lisp/simple.el Mon Oct 25 08:31:52 2004
***************
*** 1901,1913 ****
(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))))
(when stderr-file (delete-file stderr-file))
(when lc (delete-file lc)))))
--- 1901,1913 ----
(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)))))
(when stderr-file (delete-file stderr-file))
(when lc (delete-file lc)))))