Mercurial > emacs
changeset 105889:f47d28b0dece
* tar-mode.el (tar-copy): Call write-region on the right buffer
(Bug#4857).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 07 Nov 2009 18:19:48 +0000 |
| parents | de6b45f6c427 |
| children | f58f9cff53b7 |
| files | lisp/ChangeLog lisp/tar-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Nov 07 18:09:05 2009 +0000 +++ b/lisp/ChangeLog Sat Nov 07 18:19:48 2009 +0000 @@ -1,5 +1,8 @@ 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).
--- a/lisp/tar-mode.el Sat Nov 07 18:09:05 2009 +0000 +++ b/lisp/tar-mode.el Sat Nov 07 18:19:48 2009 +0000 @@ -909,12 +909,14 @@ (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)