From 8de40f9f3b0710917cea3032392b9384b4f2919f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Sun, 24 Oct 2004 09:06:05 +0000 Subject: [PATCH] (process-file): Accept nil for INFILE. Reported by Luc Teirlinck. --- lisp/ChangeLog | 5 +++++ lisp/simple.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0549967a0d8..7d7a3b8c175 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-10-24 Kai Grossjohann + + * simple.el (process-file): Accept nil for INFILE. Reported by + Luc Teirlinck. + 2004-10-24 Masatake YAMATO * progmodes/gdb-ui.el (gdb-assembler-font-lock-keywords): Handle diff --git a/lisp/simple.el b/lisp/simple.el index 9b0c8c085fc..05b8c859306 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1899,7 +1899,7 @@ value passed." lc stderr-file) (unwind-protect (if fh (apply fh 'process-file program infile buffer display args) - (setq lc (file-local-copy infile)) + (when infile (setq lc (file-local-copy infile))) (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer))) (make-temp-file "emacs")))) (prog1 -- 2.39.5