diff options
| author | Richard M. Stallman | 1995-08-30 16:01:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-30 16:01:39 +0000 |
| commit | a513a2f85f919ee80a0b253409666a9e4b92bdbd (patch) | |
| tree | 21af70fcfb15295702dd90bf4f24ad151c403dad | |
| parent | 2c6c7c721beb99a5bab8b640ec21d140789a922f (diff) | |
| download | emacs-a513a2f85f919ee80a0b253409666a9e4b92bdbd.tar.gz emacs-a513a2f85f919ee80a0b253409666a9e4b92bdbd.zip | |
(list-directory): Set default-directory.
| -rw-r--r-- | lisp/files.el | 1 |
1 files changed, 1 insertions, 0 deletions
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'." | |||
| 2341 | (terpri) | 2341 | (terpri) |
| 2342 | (save-excursion | 2342 | (save-excursion |
| 2343 | (set-buffer "*Directory*") | 2343 | (set-buffer "*Directory*") |
| 2344 | (setq default-directory (file-name-directory dirname)) | ||
| 2344 | (let ((wildcard (not (file-directory-p dirname)))) | 2345 | (let ((wildcard (not (file-directory-p dirname)))) |
| 2345 | (insert-directory dirname switches wildcard (not wildcard))))))) | 2346 | (insert-directory dirname switches wildcard (not wildcard))))))) |
| 2346 | 2347 | ||