diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2006-01-01 11:41:36 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2006-01-01 11:41:36 +0000 |
| commit | bb951f0e9e5930e053f8491e419ad59a821fed34 (patch) | |
| tree | 6ad204a277b0e4e12e53bad1c82328aa3a23dee4 /src/callproc.c | |
| parent | cbf090c4593aa130615d67ddc1ce70f44a9067ab (diff) | |
| download | emacs-bb951f0e9e5930e053f8491e419ad59a821fed34.tar.gz | |
(Fcall_process_region): Bind file-name-handler-alist to nil for the call to
Fwrite_region.
Diffstat (limited to 'src/callproc.c')
| -rw-r--r-- | src/callproc.c | 3 |
1 files changed, 3 insertions, 0 deletions
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); |