Commit a513a2f8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(list-directory): Set default-directory.

parent 2c6c7c72
......@@ -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)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment