# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1121683577 0
# Node ID 4c5a14fead4a50fb338d73267c2ad0b55ac0e441
# Parent  52b011251c32d9c3970abd15ee582d67fe72f4f9
(tar-subfile-save-buffer): Use `insert-buffer-substring', not `insert-buffer'.

diff -r 52b011251c32 -r 4c5a14fead4a lisp/tar-mode.el
--- a/lisp/tar-mode.el	Mon Jul 18 10:24:58 2005 +0000
+++ b/lisp/tar-mode.el	Mon Jul 18 10:46:17 2005 +0000
@@ -1120,7 +1120,7 @@
 	(descriptor tar-superior-descriptor)
 	subfile-size)
     ;; We must make the current buffer unibyte temporarily to avoid
-    ;; multibyte->unibyte conversion in `insert-buffer'.
+    ;; multibyte->unibyte conversion in `insert-buffer-substring'.
     (set-buffer-multibyte nil)
     (setq subfile-size (buffer-size))
     (set-buffer tar-superior-buffer)
@@ -1144,7 +1144,7 @@
 	  (delete-region data-start data-end)
 	  ;; insert the new data...
 	  (goto-char data-start)
-	  (insert-buffer subfile)
+	  (insert-buffer-substring subfile)
 	  (setq subfile-size
 		(encode-coding-region
 		 data-start (+ data-start subfile-size) coding))