(tar-untar-buffer): New function.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 2bfd75c76301bb1c5b614f29f2fc8cd3829b2d80..576d8be02e62664fe897fe5eed7c2fc048ccfaeb 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -373,6 +373,27 @@ MODE should be an integer which is a file mode value."
                (concat (if (= type 1) " ==> " " --> ") link-name)
              ""))))
 
+(defun tar-untar-buffer ()
+  "Extract all archive members in the tar-file."
+  (interactive)
+  (let ((multibyte enable-multibyte-characters))
+    (unwind-protect
+       (save-restriction
+         (widen)
+         (set-buffer-multibyte nil)
+         (dolist (descriptor tar-parse-info)
+           (let* ((tokens (tar-desc-tokens descriptor))
+                  (name (tar-header-name tokens))
+                  (dir (file-name-directory name))
+                  (start (+ (tar-desc-data-start descriptor) tar-header-offset -1))
+                  (end (+ start (tar-header-size tokens))))
+             (message "Extracting %s" name)
+             (if (and dir (not (file-exists-p dir)))
+                 (make-directory dir t))
+             (write-region start end name)
+             (set-file-modes name (tar-header-mode tokens)))))
+      (set-buffer-multibyte multibyte))))
+
 (defun tar-summarize-buffer ()
   "Parse the contents of the tar file in the current buffer.
 Place a dired-like listing on the front;