[Emacs-diffs] Changes to emacs/lisp/simple.el [lexbind]

[Miles Bader]

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