/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.551.2.29 by miles, Mon Oct 25 04:22:23 2004 UTC revision 1.551.2.30 by miles, Fri Oct 29 02:05:09 2004 UTC
# Line 1901  value passed." Line 1901  value passed."
1901          (if fh (apply fh 'process-file program infile buffer display args)          (if fh (apply fh 'process-file program infile buffer display args)
1902            (when infile (setq lc (file-local-copy infile)))            (when infile (setq lc (file-local-copy infile)))
1903            (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer)))            (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer)))
1904                                (make-temp-file "emacs"))))                                (make-temp-file "emacs")))
1905        (prog1            (prog1
1906            (apply 'call-process program                (apply 'call-process program
1907                   (or lc infile)                       (or lc infile)
1908                   (if stderr-file (list (car buffer) stderr-file) buffer)                       (if stderr-file (list (car buffer) stderr-file) buffer)
1909                   display args)                       display args)
1910          (when stderr-file (copy-file stderr-file (cadr buffer))))              (when stderr-file (copy-file stderr-file (cadr buffer)))))
1911        (when stderr-file (delete-file stderr-file))        (when stderr-file (delete-file stderr-file))
1912        (when lc (delete-file lc)))))        (when lc (delete-file lc)))))
1913    

Legend:
Removed from v.1.551.2.29  
changed lines
  Added in v.1.551.2.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26