procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(list-directory): Set default-directory.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-30 16:01:39 +00:00
parent 2c6c7c721b
commit a513a2f85f
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/files.el
View file

@ -2341,6 +2341,7 @@ and `list-directory-verbose-switches'."
(terpri) (terpri)
(save-excursion (save-excursion
(set-buffer "*Directory*") (set-buffer "*Directory*")
(setq default-directory (file-name-directory dirname))
(let ((wildcard (not (file-directory-p dirname)))) (let ((wildcard (not (file-directory-p dirname))))
(insert-directory dirname switches wildcard (not wildcard))))))) (insert-directory dirname switches wildcard (not wildcard)))))))