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

Luc Teirlinck.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0549967a0d8ccde65132c2a0fcdccd901e170552..7d7a3b8c175913af2e076e8da039bc71d4b296fd 100644 (file)
--- 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 9b0c8c085fc9715ce3da17d9ab462187fa0c23d8..05b8c8593066cb5a57bbe9d8f19dfe66ac208e14 100644 (file)
--- 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