aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/tar-mode.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index b224ec51e08..715814d85cc 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -608,7 +608,7 @@ save your changes to disk."
608 608
609 609
610(defun tar-extract (&optional other-window-p) 610(defun tar-extract (&optional other-window-p)
611 "*In Tar mode, extract this entry of the tar file into its own buffer." 611 "In Tar mode, extract this entry of the tar file into its own buffer."
612 (interactive) 612 (interactive)
613 (let* ((view-p (eq other-window-p 'view)) 613 (let* ((view-p (eq other-window-p 'view))
614 (descriptor (tar-current-descriptor)) 614 (descriptor (tar-current-descriptor))
@@ -1087,7 +1087,7 @@ Leaves the region wide."
1087 (data-end (+ start size)) 1087 (data-end (+ start size))
1088 (bbytes (ash tar-anal-blocksize 9)) 1088 (bbytes (ash tar-anal-blocksize 9))
1089 (pad-to (+ bbytes (* bbytes (/ (1- data-end) bbytes)))) 1089 (pad-to (+ bbytes (* bbytes (/ (1- data-end) bbytes))))
1090 (buffer-read-only nil) ; ## 1090 (inhibit-read-only t) ; ##
1091 ) 1091 )
1092 ;; If the padding after the last data is too long, delete some; 1092 ;; If the padding after the last data is too long, delete some;
1093 ;; else insert some until we are padded out to the right number of blocks. 1093 ;; else insert some until we are padded out to the right number of blocks.