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)))
(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 @@ appear on disk when you save the tar-file's buffer."
(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)