1899 |
lc stderr-file) |
lc stderr-file) |
1900 |
(unwind-protect |
(unwind-protect |
1901 |
(if fh (apply fh 'process-file program infile buffer display args) |
(if fh (apply fh 'process-file program infile buffer display args) |
1902 |
(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 |