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 041f0fddc1a..7da14387738 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -1120,7 +1120,7 @@ to make your changes permanent." | |||
| 1120 | (descriptor tar-superior-descriptor) | 1120 | (descriptor tar-superior-descriptor) |
| 1121 | subfile-size) | 1121 | subfile-size) |
| 1122 | ;; We must make the current buffer unibyte temporarily to avoid | 1122 | ;; We must make the current buffer unibyte temporarily to avoid |
| 1123 | ;; multibyte->unibyte conversion in `insert-buffer'. | 1123 | ;; multibyte->unibyte conversion in `insert-buffer-substring'. |
| 1124 | (set-buffer-multibyte nil) | 1124 | (set-buffer-multibyte nil) |
| 1125 | (setq subfile-size (buffer-size)) | 1125 | (setq subfile-size (buffer-size)) |
| 1126 | (set-buffer tar-superior-buffer) | 1126 | (set-buffer tar-superior-buffer) |
| @@ -1144,7 +1144,7 @@ to make your changes permanent." | |||
| 1144 | (delete-region data-start data-end) | 1144 | (delete-region data-start data-end) |
| 1145 | ;; insert the new data... | 1145 | ;; insert the new data... |
| 1146 | (goto-char data-start) | 1146 | (goto-char data-start) |
| 1147 | (insert-buffer subfile) | 1147 | (insert-buffer-substring subfile) |
| 1148 | (setq subfile-size | 1148 | (setq subfile-size |
| 1149 | (encode-coding-region | 1149 | (encode-coding-region |
| 1150 | data-start (+ data-start subfile-size) coding)) | 1150 | data-start (+ data-start subfile-size) coding)) |