From: Ken Raeburn <raeburn@raeburn.org>
Date: Sun, 1 Jan 2006 11:41:36 +0000 (+0000)
Subject: (Fcall_process_region): Bind file-name-handler-alist to nil for the call to
X-Git-Tag: emacs-pretest-22.0.90~4940
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bb951f0e9e5930e053f8491e419ad59a821fed34;p=emacs.git

(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Fwrite_region.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e550604498d..6ad7c939bce 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-01  Ken Raeburn  <raeburn@gnu.org>
+
+	* callproc.c (Fcall_process_region): Bind file-name-handler-alist
+	to nil for the call to Fwrite_region.
+
 2005-12-31  Richard M. Stallman  <rms@gnu.org>
 
 	* minibuf.c (read_minibuf): Clear out all other minibuffer windows.
diff --git a/src/callproc.c b/src/callproc.c
index 47930819c07..a9b9d2bff6a 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1126,6 +1126,9 @@ usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &r
     int count1 = SPECPDL_INDEX ();
 
     specbind (intern ("coding-system-for-write"), val);
+    /* POSIX lets mk[s]temp use "."; don't invoke jka-compr if we
+       happen to get a ".Z" suffix.  */
+    specbind (intern ("file-name-handler-alist"), Qnil);
     Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil);
 
     unbind_to (count1, Qnil);