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 | 5a8a160eb6c1f4355b6290b3585ed83fad2b7aa2 (patch) | |
| tree | 839244b093150913279c11fba62d781378302355 /lisp | |
| parent | 01dbd8a0b94fdf8460535814bf549068b2488f72 (diff) | |
| download | emacs-5a8a160eb6c1f4355b6290b3585ed83fad2b7aa2.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))))))) |