From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 30 Aug 1995 16:01:39 +0000 (+0000)
Subject: (list-directory): Set default-directory.
X-Git-Tag: emacs-19.34~2886
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a513a2f85f919ee80a0b253409666a9e4b92bdbd;p=emacs.git

(list-directory): Set default-directory.
---

diff --git a/lisp/files.el b/lisp/files.el
index 73b9085ddf9..a71331bfcc4 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2341,6 +2341,7 @@ and `list-directory-verbose-switches'."
       (terpri)
       (save-excursion
 	(set-buffer "*Directory*")
+	(setq default-directory (file-name-directory dirname))
 	(let ((wildcard (not (file-directory-p dirname))))
 	  (insert-directory dirname switches wildcard (not wildcard)))))))