diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-28 19:27:44 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-28 19:27:44 +0000 |
| commit | 9a567e3c105ed338229605a10770957d2a3832ec (patch) | |
| tree | 29cf0a7e68e6f5603349e6ddec889b7d55472c7f /lisp | |
| parent | 954d1eb4cf356719816776f00aca83d66a1e2f39 (diff) | |
| download | emacs-9a567e3c105ed338229605a10770957d2a3832ec.tar.gz | |
(list-directory): Set default-directory better if the
argument is a directory's file name.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 197a5624900..0afa0fe170a 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -2536,7 +2536,10 @@ and `list-directory-verbose-switches'." (terpri) (save-excursion (set-buffer "*Directory*") - (setq default-directory (file-name-directory dirname)) + (setq default-directory + (if (file-directory-p dirname) + (file-name-as-directory dirname) + (file-name-directory dirname))) (let ((wildcard (not (file-directory-p dirname)))) (insert-directory dirname switches wildcard (not wildcard))))))) |