Mercurial > emacs
comparison lisp/simple.el @ 57668:d9dc84198059
(process-file): Accept nil for INFILE. Reported by
Luc Teirlinck.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sun, 24 Oct 2004 09:06:05 +0000 |
| parents | b324ca4df07c |
| children | 4d4bfb9781e1 ae7fab96922c |
comparison
equal
deleted
inserted
replaced
| 57667:74daa791cabe | 57668:d9dc84198059 |
|---|---|
| 1897 value passed." | 1897 value passed." |
| 1898 (let ((fh (find-file-name-handler default-directory 'process-file)) | 1898 (let ((fh (find-file-name-handler default-directory 'process-file)) |
| 1899 lc stderr-file) | 1899 lc stderr-file) |
| 1900 (unwind-protect | 1900 (unwind-protect |
| 1901 (if fh (apply fh 'process-file program infile buffer display args) | 1901 (if fh (apply fh 'process-file program infile buffer display args) |
| 1902 (setq lc (file-local-copy infile)) | 1902 (when infile (setq lc (file-local-copy infile))) |
| 1903 (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer))) | 1903 (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer))) |
| 1904 (make-temp-file "emacs")))) | 1904 (make-temp-file "emacs")))) |
| 1905 (prog1 | 1905 (prog1 |
| 1906 (apply 'call-process program | 1906 (apply 'call-process program |
| 1907 (or lc infile) | 1907 (or lc infile) |