From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 3 Nov 1994 20:37:28 +0000 (+0000)
Subject: (tar-extract): Set default-directory to that of the superior buffer, not the
X-Git-Tag: emacs-19.34~6038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4e347be426970629cde9374ca79102d521dec52;p=emacs.git

(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 894349cf4f8..9dd9732fab8 100644
--- 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)