aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/tar-mode.el4
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))