diff options
| author | Kenichi Handa <handa@m17n.org> | 2005-01-17 02:36:40 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2005-01-17 02:36:40 +0000 |
| commit | 8e69f4d870f13f24604c0e920e1d228e3f7619cc (patch) | |
| tree | eb8b0a7bdf92fe08f8cee6eaab5658233c69c66e /lisp/tar-mode.el | |
| parent | 54c4c5465ff6dcf158fc47b5894a688ec356f900 (diff) | |
| download | emacs-8e69f4d870f13f24604c0e920e1d228e3f7619cc.tar.gz emacs-8e69f4d870f13f24604c0e920e1d228e3f7619cc.tar.bz2 emacs-8e69f4d870f13f24604c0e920e1d228e3f7619cc.zip | |
(tar-extract): Adjust code merged from trunk for
unicode branch (for the change on 2005-01-15).
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 4fc73288de2..c6b732da9f3 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -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) |