[Emacs-diffs] /srv/bzr/emacs/trunk r107613: tar-mode buffer-read-only fix

[Glenn Morris]

------------------------------------------------------------
revno: 107613
fixes bug(s): http://debbugs.gnu.org/11010
author: Aaron S. Hawley <address@hidden>
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2012-03-16 00:21:23 -0700
message:
  tar-mode buffer-read-only fix
  
  * lisp/tar-mode.el (tar-mode): Fix saving by conditionally undoing
  `special-mode' setting of `buffer-read-only'.
modified:
  lisp/ChangeLog
  lisp/tar-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-16 01:40:20 +0000
+++ b/lisp/ChangeLog    2012-03-16 07:21:23 +0000
@@ -1,3 +1,8 @@
+2012-03-16  Aaron S. Hawley  <address@hidden>
+
+       * tar-mode.el (tar-mode): Fix saving by conditionally undoing
+        `special-mode' setting of `buffer-read-only'.  (Bug#11010)
+
 2012-03-16  Glenn Morris  <address@hidden>
 
        * view.el (view-buffer, view-buffer-other-window)

=== modified file 'lisp/tar-mode.el'
--- a/lisp/tar-mode.el  2012-02-08 02:12:24 +0000
+++ b/lisp/tar-mode.el  2012-03-16 07:21:23 +0000
@@ -634,6 +634,9 @@
 
 See also: variables `tar-update-datestamp' and `tar-anal-blocksize'.
 \\{tar-mode-map}"
+  (and buffer-file-name
+       (file-writable-p buffer-file-name)
+       (setq buffer-read-only nil))    ; undo what `special-mode' did
   (make-local-variable 'tar-parse-info)
   (set (make-local-variable 'require-final-newline) nil) ; binary data, dude...
   (set (make-local-variable 'local-enable-local-variables) nil)