diff options
author | Glenn Morris <rgm@gnu.org> | 2014-08-28 15:18:24 -0400 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2014-08-28 15:18:24 -0400 |
commit | 6539a7e2a29d4f3e914e9bccd3f842c0641f815b (patch) | |
tree | f7e9d87898791a730a678aa833b0e53f933d9fe7 /lisp/tar-mode.el | |
parent | 74910c5d074b4173bd0469ca4e315e9deac78718 (diff) | |
download | emacs-6539a7e2a29d4f3e914e9bccd3f842c0641f815b.tar.gz |
* lisp/tar-mode.el (tar--extract, tar-extract): Avoid disabling undo
in extracted buffers.
Fixes: debbugs:18344
Diffstat (limited to 'lisp/tar-mode.el')
-rw-r--r-- | lisp/tar-mode.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 66118d3e288..129314cbcee 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -800,8 +800,6 @@ tar-file's buffer." tarname ")")) (buffer (generate-new-buffer bufname))) - (with-current-buffer buffer - (setq buffer-undo-list t)) (with-current-buffer tar-data-buffer (let (coding) (narrow-to-region start end) @@ -829,7 +827,11 @@ tar-file's buffer." (with-current-buffer buffer (set-buffer-multibyte nil))) (widen) - (decode-coding-region start end coding buffer))) + (with-current-buffer buffer + (setq buffer-undo-list t)) + (decode-coding-region start end coding buffer) + (with-current-buffer buffer + (setq buffer-undo-list nil)))) buffer)) (defun tar-extract (&optional other-window-p) @@ -869,7 +871,6 @@ tar-file's buffer." (with-current-buffer tar-buffer default-directory)) (set-buffer-modified-p nil) - (setq buffer-undo-list t) (normal-mode) ; pick a mode. (set (make-local-variable 'tar-superior-buffer) tar-buffer) (set (make-local-variable 'tar-superior-descriptor) descriptor) |