[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind] |
Date: |
Thu, 28 Oct 2004 22:27:46 -0400 |
Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.551.2.29 emacs/lisp/simple.el:1.551.2.30
*** emacs/lisp/simple.el:1.551.2.29 Mon Oct 25 04:22:23 2004
--- emacs/lisp/simple.el Fri Oct 29 02:05:09 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)))))