[Emacs-diffs] emacs-24 r117464: * lisp/tar-mode.el (tar--extract, tar-extract): Avoid disabling undo

[Glenn Morris]

------------------------------------------------------------
revno: 117464
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/18344
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Thu 2014-08-28 15:18:24 -0400
message:
  * lisp/tar-mode.el (tar--extract, tar-extract): Avoid disabling undo
  in extracted buffers.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/tar-mode.el               tarmode.el-20091113204419-o5vbwnq5f7feedwu-204

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-27 07:53:58 +0000
+++ b/lisp/ChangeLog    2014-08-28 19:18:24 +0000
@@ -1,3 +1,8 @@
+2014-08-28  Glenn Morris  <address@hidden>
+
+       * tar-mode.el (tar--extract, tar-extract):
+       Avoid permanently disabling undo in extracted buffers.  (Bug#18344)
+
 2014-08-27  Michael Albinus  <address@hidden>
 
        * emacs-lisp/authors.el (authors-aliases): Addition.

=== modified file 'lisp/tar-mode.el'
--- a/lisp/tar-mode.el  2014-02-10 01:34:22 +0000
+++ b/lisp/tar-mode.el  2014-08-28 19:18:24 +0000
@@ -800,8 +800,6 @@
                           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 @@
             (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 @@
               (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)