mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

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

Browse Source 
(Bug#4857).
This commit is contained in:
Chong Yidong 2009-11-07 18:19:48 +00:00
parent b42b2189a3
commit 6960d7b9bd
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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).

10
lisp/tar-mode.el
View File

@ -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)