mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(tar-pad-to-blocksize): Bind inhibit-read-only, not buffer-read-only.

Browse source
This commit is contained in:
Richard M. Stallman 1994-02-07 05:59:31 +00:00
parent c72344c70d
commit 628d6cef6e
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/tar-mode.el
View file

@ -608,7 +608,7 @@ save your changes to disk."
(defun tar-extract (&optional other-window-p)
"*In Tar mode, extract this entry of the tar file into its own buffer."
"In Tar mode, extract this entry of the tar file into its own buffer."
(interactive)
(let* ((view-p (eq other-window-p 'view))
(descriptor (tar-current-descriptor))
@ -1087,7 +1087,7 @@ Leaves the region wide."
(data-end (+ start size))
(bbytes (ash tar-anal-blocksize 9))
(pad-to (+ bbytes (* bbytes (/ (1- data-end) bbytes))))
(buffer-read-only nil) ; ##
(inhibit-read-only t) ; ##
)
;; If the padding after the last data is too long, delete some;
;; else insert some until we are padded out to the right number of blocks.