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/files.el | |
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/files.el')
-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))))))) |