emacs-diffs
[Top][All Lists]
Advanced

[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)))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]