diff options
| author | Ken Raeburn | 2006-01-01 11:41:36 +0000 |
|---|---|---|
| committer | Ken Raeburn | 2006-01-01 11:41:36 +0000 |
| commit | bb951f0e9e5930e053f8491e419ad59a821fed34 (patch) | |
| tree | 6ad204a277b0e4e12e53bad1c82328aa3a23dee4 /src/callproc.c | |
| parent | cbf090c4593aa130615d67ddc1ce70f44a9067ab (diff) | |
| download | emacs-bb951f0e9e5930e053f8491e419ad59a821fed34.tar.gz emacs-bb951f0e9e5930e053f8491e419ad59a821fed34.zip | |
(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 | |||
| 1126 | int count1 = SPECPDL_INDEX (); | 1126 | int count1 = SPECPDL_INDEX (); |
| 1127 | 1127 | ||
| 1128 | specbind (intern ("coding-system-for-write"), val); | 1128 | specbind (intern ("coding-system-for-write"), val); |
| 1129 | /* POSIX lets mk[s]temp use "."; don't invoke jka-compr if we | ||
| 1130 | happen to get a ".Z" suffix. */ | ||
| 1131 | specbind (intern ("file-name-handler-alist"), Qnil); | ||
| 1129 | Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); | 1132 | Fwrite_region (start, end, filename_string, Qnil, Qlambda, Qnil, Qnil); |
| 1130 | 1133 | ||
| 1131 | unbind_to (count1, Qnil); | 1134 | unbind_to (count1, Qnil); |