[Emacs-diffs] emacs/lisp ChangeLog tar-mode.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/07 18:19:52

Modified files:
        lisp           : ChangeLog tar-mode.el 

Log message:
        * tar-mode.el (tar-copy): Call write-region on the right buffer
        (Bug#4857).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16576&r2=1.16577
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/tar-mode.el?cvsroot=emacs&r1=1.142&r2=1.143

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16576
retrieving revision 1.16577
diff -u -b -r1.16576 -r1.16577
--- ChangeLog   7 Nov 2009 18:09:05 -0000       1.16576
+++ ChangeLog   7 Nov 2009 18:19:48 -0000       1.16577
@@ -1,5 +1,8 @@
 2009-11-07  Chong Yidong  <address@hidden>
 
+       * 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).
 

Index: tar-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/tar-mode.el,v
retrieving revision 1.142
retrieving revision 1.143
diff -u -b -r1.142 -r1.143
--- tar-mode.el 17 Oct 2009 04:36:14 -0000      1.142
+++ tar-mode.el 7 Nov 2009 18:19:51 -0000       1.143
@@ -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)