diff options
| -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." | |||
| 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. |