* lisp/tar-mode.el (tar--extract, tar-extract): Avoid disabling undo

in extracted buffers.

Fixes: debbugs:18344

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 00bb37a171429e0258b7ede477b67ba643d541ab..81e9a0f2280d00ecc20db60ed671c43695263a46 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-28  Glenn Morris  <rgm@gnu.org>
+
+       * tar-mode.el (tar--extract, tar-extract):
+       Avoid permanently disabling undo in extracted buffers.  (Bug#18344)
+
 2014-08-27  Michael Albinus  <michael.albinus@gmx.de>
 
        * emacs-lisp/authors.el (authors-aliases): Addition.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 66118d3e288b99437aeb05ebc24c3e5acced7262..129314cbceef421bc96d4cc30f9acc7932652d09 100644 (file)
--- 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)