Mercurial > emacs
changeset 5821:4212fd8028bb
(tar-pad-to-blocksize): Bind inhibit-read-only, not buffer-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 07 Feb 1994 05:59:31 +0000 |
| parents | 3443820118a0 |
| children | db219f81f5de |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Mon Feb 07 05:54:34 1994 +0000 +++ b/lisp/tar-mode.el Mon Feb 07 05:59:31 1994 +0000 @@ -608,7 +608,7 @@ (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 @@ (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.