# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1231294537 0
# Node ID e55ce6002e3ddf70e28b03befdf04c3ed1d34a11
# Parent  ba087903e9ba1bd6375e555b768b92b5f0950b51
(tar-mode, tar-mode-write-contents)
(tar-write-region-annotate): Undo Andreas's last change.

diff -r ba087903e9ba -r e55ce6002e3d lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Jan 06 11:39:20 2009 +0000
+++ b/lisp/ChangeLog	Wed Jan 07 02:15:37 2009 +0000
@@ -1,3 +1,8 @@
+2009-01-07  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* tar-mode.el (tar-mode, tar-mode-write-contents)
+	(tar-write-region-annotate): Undo Andreas's last change.
+
 2009-01-06  Michael Albinus  <michael.albinus@gmx.de>
 
 	* net/tramp.el (tramp-do-copy-or-rename-file-directly)
diff -r ba087903e9ba -r e55ce6002e3d lisp/tar-mode.el
--- a/lisp/tar-mode.el	Tue Jan 06 11:39:20 2009 +0000
+++ b/lisp/tar-mode.el	Wed Jan 07 02:15:37 2009 +0000
@@ -637,7 +637,10 @@
   ;; buffer for the summary.
   (assert (not (tar-data-swapped-p)))
   (set (make-local-variable 'revert-buffer-function) 'tar-mode-revert)
-  (add-hook 'write-contents-functions 'tar-mode-write-contents nil t)
+  ;; We started using write-contents-functions, but this hook is not
+  ;; used during auto-save, so we now use
+  ;; write-region-annotate-functions which hooks at a lower-level.
+  (add-hook 'write-region-annotate-functions 'tar-write-region-annotate nil t)
   (add-hook 'kill-buffer-hook 'tar-mode-kill-buffer-hook nil t)
   (add-hook 'change-major-mode-hook 'tar-change-major-mode-hook nil t)
   ;; Tar data is made of bytes, not chars.
@@ -1213,18 +1216,15 @@
             (insert (make-string (- goal-end (point-max)) ?\0))))))))
 
 
-;; Used in write-contents-functions to write tar-files out correctly.
-(defun tar-mode-write-contents ()
-  (save-excursion
-    (unwind-protect
-	(progn
-	  (when (tar-data-swapped-p) (tar-swap-data))
-	  (write-region nil nil buffer-file-name nil t))
-      (unless (tar-data-swapped-p) (tar-swap-data))))
+;; Used in write-region-annotate-functions to write tar-files out correctly.
+(defun tar-write-region-annotate (start end)
+  ;; When called from write-file (and auto-save), `start' is nil.
+  ;; When called from M-x write-region, we assume the user wants to save
+  ;; (part of) the summary, not the tar data.
+  (unless (or start (not (tar-data-swapped-p)))
   (tar-clear-modification-flags)
-  (set-buffer-modified-p nil)
-  ;; Return t because we've written the file.
-  t)
+    (set-buffer tar-data-buffer)
+    nil))
 
 (provide 'tar-mode)