From 6a608e8ebf03dcb873fbe3002e1c6f3402c52b4a Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 25 Apr 1994 18:26:20 +0000 Subject: [PATCH] (tar-copy): Don't bother with a temp buffer. --- lisp/tar-mode.el | 21 ++++----------------- 1 file changed, 4 insertions(+), 17 deletions(-) diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 00fff38487b..b1edbe0375b 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el @@ -749,23 +749,10 @@ the current tar-entry." (size (tar-header-size tokens)) (start (+ (tar-desc-data-start descriptor) tar-header-offset -1)) (end (+ start size))) - (let* ((tar-buffer (current-buffer)) - buffer) - (unwind-protect - (progn - (setq buffer (generate-new-buffer "*tar-copy-tmp*")) - (widen) - (save-excursion - (set-buffer buffer) - (insert-buffer-substring tar-buffer start end) - (set-buffer-modified-p nil) ; in case we abort - (write-file to-file) - (message "Copied tar entry %s to %s" name to-file) - (set-buffer tar-buffer))) - (narrow-to-region 1 tar-header-offset) - (if buffer (kill-buffer buffer))) - ))) - + (save-restriction + (widen) + (write-region start end to-file)) + (message "Copied tar entry %s to %s" name to-file))) (defun tar-flag-deleted (p &optional unflag) "*In Tar mode, mark this sub-file to be deleted from the tar file. -- 2.39.5