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