Mercurial > emacs
changeset 67989:d7475f0d0bda
(delete_temp_file): Bind file-name-handler-alist to nil for the call
to internal_delete_file.
| author | Ken Raeburn <raeburn@raeburn.org> |
|---|---|
| date | Tue, 03 Jan 2006 08:24:24 +0000 |
| parents | 7882fc7df359 |
| children | dd0a5d76e46b |
| files | src/callproc.c |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/callproc.c Tue Jan 03 06:13:43 2006 +0000 +++ b/src/callproc.c Tue Jan 03 08:24:24 2006 +0000 @@ -1013,9 +1013,11 @@ delete_temp_file (name) Lisp_Object name; { - /* Use Fdelete_file (indirectly) because that runs a file name handler. - We did that when writing the file, so we should do so when deleting. */ + /* Suppress jka-compr handling, etc. */ + int count = SPECPDL_INDEX (); + specbind (intern ("file-name-handler-alist"), Qnil); internal_delete_file (name); + unbind_to (count, Qnil); return Qnil; }