Mercurial > emacs
diff lisp/jka-compr.el @ 108851:cb093dac3d58
Merge from mainline.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Fri, 28 May 2010 00:48:45 +0000 |
parents | 511da81b16c5 |
children | 417b1e4d63cd |
line wrap: on
line diff
--- a/lisp/jka-compr.el Thu May 27 22:44:41 2010 +0000 +++ b/lisp/jka-compr.el Fri May 28 00:48:45 2010 +0000 @@ -181,7 +181,7 @@ null-device)) jka-compr-acceptable-retval-list) (jka-compr-error prog args infile message err-file)) - (delete-file err-file t))) + (delete-file err-file))) ;; Run the uncompression program directly. ;; We get the whole file and must delete what we don't want. @@ -223,7 +223,7 @@ ""))) jka-compr-acceptable-retval-list) (jka-compr-error prog args infile message err-file)) - (delete-file err-file t))) + (delete-file err-file))) (or (eq 0 (apply 'call-process prog infile (if (stringp output) temp output) @@ -335,7 +335,7 @@ (and append can-append) 'dont)) (erase-buffer)) ) - (delete-file temp-file t) + (delete-file temp-file) (and compress-message