Commit 6960d7b9 authored by Chong Yidong's avatar Chong Yidong
Browse files

* tar-mode.el (tar-copy): Call write-region on the right buffer

(Bug#4857).
parent b42b2189
2009-11-07 Chong Yidong <cyd@stupidchicken.com>
* tar-mode.el (tar-copy): Call write-region on the right buffer
(Bug#4857).
* mail/rmailsum.el (rmail-summary-rmail-update): Call linum-update
by hand, if necessary (Bug#4878).
......
......@@ -909,12 +909,14 @@ the current tar-entry."
(end (+ start size))
(inhibit-file-name-handlers inhibit-file-name-handlers)
(inhibit-file-name-operation inhibit-file-name-operation))
(save-restriction
(widen)
(with-current-buffer
(if (tar-data-swapped-p) tar-data-buffer (current-buffer))
;; Inhibit compressing a subfile again if *both* name and
;; to-file are handled by jka-compr
(if (and (eq (find-file-name-handler name 'write-region) 'jka-compr-handler)
(eq (find-file-name-handler to-file 'write-region) 'jka-compr-handler))
(if (and (eq (find-file-name-handler name 'write-region)
'jka-compr-handler)
(eq (find-file-name-handler to-file 'write-region)
'jka-compr-handler))
(setq inhibit-file-name-handlers
(cons 'jka-compr-handler
(and (eq inhibit-file-name-operation 'write-region)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment