# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1105929400 0
# Node ID f02550ff43d000f26da9f27e5251ef5c949e3b00
# Parent  cb67264d6096e812e85294f3a7ae061a92b03d32
(tar-extract): Adjust code merged from trunk for
unicode branch (for the change on 2005-01-15).

diff -r cb67264d6096 -r f02550ff43d0 lisp/tar-mode.el
--- a/lisp/tar-mode.el	Sun Jan 16 03:40:12 2005 +0000
+++ b/lisp/tar-mode.el	Mon Jan 17 02:36:40 2005 +0000
@@ -706,9 +706,14 @@
 				  (concat tarname "!" name)))
 	   (buffer (get-file-buffer new-buffer-file-name))
 	   (just-created nil)
-	   (pos (point)))
+	   (pos (point))
+	   undo-list)
       (unless buffer
 	(setq buffer (generate-new-buffer bufname))
+	(save-excursion
+	  (set-buffer buffer)
+	  (setq undo-list buffer-undo-list
+		buffer-undo-list t))
 	(setq bufname (buffer-name buffer))
 	(setq just-created t)
 	(unwind-protect
@@ -750,6 +755,7 @@
 		(setq tar-superior-descriptor descriptor)
 		(setq buffer-read-only read-only-p)
 		(set-buffer-modified-p nil)
+		(setq buffer-undo-list undo-list)
 		(tar-subfile-mode 1))
 	      (set-buffer tar-buffer))
 	  (narrow-to-region (point-min) tar-header-offset)