(tar-extract): Set default-directory to that of the superior buffer, not the

pseudo-dir formed from the archive name.

diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 894349cf4f813b1678ab9b9d21bb399f1fef1583..9dd9732fab88da98bcd292572ca2d66d54e90d5d 100644 (file)
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -700,6 +700,12 @@ save your changes to disk."
                (make-local-variable 'tar-superior-descriptor)
                (setq tar-superior-buffer tar-buffer)
                (setq tar-superior-descriptor descriptor)
+               ;; Set the default-directory to the dir of the
+               ;; superior buffer. 
+               (setq default-directory
+                     (save-excursion
+                       (set-buffer tar-superior-buffer)
+                       default-directory))
 
                (tar-subfile-mode 1)