diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-02-07 05:59:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-02-07 05:59:31 +0000 |
| commit | 628d6cef6eef07ddb0907d628cdf2a95502968e3 (patch) | |
| tree | b15ba0b1674838952bb97bd9d7f01dfa20ad4b0f /lisp/tar-mode.el | |
| parent | c72344c70de973c7440a2d40e8000cdd8885e608 (diff) | |
| download | emacs-628d6cef6eef07ddb0907d628cdf2a95502968e3.tar.gz | |
(tar-pad-to-blocksize): Bind inhibit-read-only, not buffer-read-only.
Diffstat (limited to 'lisp/tar-mode.el')
| -rw-r--r-- | lisp/tar-mode.el | 4 |
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." (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. |