Mercurial > emacs
changeset 9817:cf4658356724
(tar-extract): Set default-directory to that of the superior buffer, not the
pseudo-dir formed from the archive name.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 03 Nov 1994 20:37:28 +0000 |
| parents | 433b0117220b |
| children | a4112f6321a5 |
| files | lisp/tar-mode.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tar-mode.el Thu Nov 03 20:30:28 1994 +0000 +++ b/lisp/tar-mode.el Thu Nov 03 20:37:28 1994 +0000 @@ -700,6 +700,12 @@ (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)