From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Sun, 24 Oct 2004 09:06:05 +0000 (+0000)
Subject: (process-file): Accept nil for INFILE.  Reported by
X-Git-Tag: ttn-vms-21-2-B4~4426
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8de40f9f3b0710917cea3032392b9384b4f2919f;p=emacs.git

(process-file): Accept nil for INFILE.  Reported by
Luc Teirlinck.
---

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