Mercurial > emacs
changeset 90073:f02550ff43d0
(tar-extract): Adjust code merged from trunk for
unicode branch (for the change on 2005-01-15).
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 17 Jan 2005 02:36:40 +0000 |
| parents | cb67264d6096 |
| children | 98b0ed9e564d |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)