procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(tar-extract): Adjust code merged from trunk for

Browse source 
unicode branch (for the change on 2005-01-15).
This commit is contained in:
Kenichi Handa 2005-01-17 02:36:40 +00:00
parent 54c4c5465f
commit 8e69f4d870
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/tar-mode.el
View file

@ -706,9 +706,14 @@ appear on disk when you save the tar-file's buffer."
(concat tarname "!" name))) (concat tarname "!" name)))
(buffer (get-file-buffer new-buffer-file-name)) (buffer (get-file-buffer new-buffer-file-name))
(just-created nil) (just-created nil)
(pos (point))) (pos (point))
undo-list)
(unless buffer (unless buffer
(setq buffer (generate-new-buffer bufname)) (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 bufname (buffer-name buffer))
(setq just-created t) (setq just-created t)
(unwind-protect (unwind-protect
@ -750,6 +755,7 @@ appear on disk when you save the tar-file's buffer."
(setq tar-superior-descriptor descriptor) (setq tar-superior-descriptor descriptor)
(setq buffer-read-only read-only-p) (setq buffer-read-only read-only-p)
(set-buffer-modified-p nil) (set-buffer-modified-p nil)
(setq buffer-undo-list undo-list)
(tar-subfile-mode 1)) (tar-subfile-mode 1))
(set-buffer tar-buffer)) (set-buffer tar-buffer))
(narrow-to-region (point-min) tar-header-offset) (narrow-to-region (point-min) tar-header-offset)