# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1098608765 0
# Node ID d9dc841980599b20de91df6092de4bc7479deaa0
# Parent  74daa791cabe3eac9e08e144d7d826541943721d
(process-file): Accept nil for INFILE.  Reported by
Luc Teirlinck.

diff -r 74daa791cabe -r d9dc84198059 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Oct 24 03:58:24 2004 +0000
+++ b/lisp/ChangeLog	Sun Oct 24 09:06:05 2004 +0000
@@ -1,3 +1,8 @@
+2004-10-24  Kai Grossjohann  <kai.grossjohann@gmx.net>
+
+	* simple.el (process-file): Accept nil for INFILE.  Reported by
+	Luc Teirlinck.
+
 2004-10-24  Masatake YAMATO  <jet@gyve.org>
 
 	* progmodes/gdb-ui.el (gdb-assembler-font-lock-keywords): Handle
diff -r 74daa791cabe -r d9dc84198059 lisp/simple.el
--- a/lisp/simple.el	Sun Oct 24 03:58:24 2004 +0000
+++ b/lisp/simple.el	Sun Oct 24 09:06:05 2004 +0000
@@ -1899,7 +1899,7 @@
         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