From: Glenn Morris <rgm@gnu.org>
To: Paul Pogonyshev <pogonyshev@gmail.com>
Cc: dan@haxney.org, 18344@debbugs.gnu.org
Subject: bug#18344: Archive (e.g. tarball) file buffers are editable, but have no undo information
Date: Thu, 28 Aug 2014 15:16:28 -0400 [thread overview]
Message-ID: <pnmwaoifw3.fsf@fencepost.gnu.org> (raw)
In-Reply-To: <ilegw0tspc.fsf@fencepost.gnu.org> (Glenn Morris's message of "Thu, 28 Aug 2014 13:44:15 -0400")
Following seems to fix it for me
*** lisp/tar-mode.el 2014-02-10 01:34:22 +0000
--- lisp/tar-mode.el 2014-08-28 19:11:24 +0000
***************
*** 800,807 ****
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)
--- 800,805 ----
***************
*** 829,835 ****
(with-current-buffer buffer
(set-buffer-multibyte nil)))
(widen)
! (decode-coding-region start end coding buffer)))
buffer))
(defun tar-extract (&optional other-window-p)
--- 827,837 ----
(with-current-buffer buffer
(set-buffer-multibyte nil)))
(widen)
! (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,875 ****
(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)
--- 871,876 ----
prev parent reply other threads:[~2014-08-28 19:16 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-08-28 17:11 bug#18344: Archive (e.g. tarball) file buffers are editable, but have no undo information Paul Pogonyshev
2014-08-28 17:44 ` Glenn Morris
2014-08-28 18:01 ` Paul Pogonyshev
2014-08-28 19:16 ` Glenn Morris [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=pnmwaoifw3.fsf@fencepost.gnu.org \
--to=rgm@gnu.org \
--cc=18344@debbugs.gnu.org \
--cc=dan@haxney.org \
--cc=pogonyshev@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.