Mercurial > emacs

comparison lisp/files.el @ 12974:fd7b8d2ba9e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-directory): Set default-directory.
author Richard M. Stallman <rms@gnu.org>
date Wed, 30 Aug 1995 16:01:39 +0000
parents 16df4fd98d75
children 13b9311103c8
comparison
equal deleted inserted replaced
12973:2c0225a5aa91 12974:fd7b8d2ba9e9
2339 (princ "Directory ") 2339 (princ "Directory ")
2340 (princ dirname) 2340 (princ dirname)
2341 (terpri) 2341 (terpri)
2342 (save-excursion 2342 (save-excursion
2343 (set-buffer "*Directory*") 2343 (set-buffer "*Directory*")
2344 (setq default-directory (file-name-directory dirname))
2344 (let ((wildcard (not (file-directory-p dirname)))) 2345 (let ((wildcard (not (file-directory-p dirname))))
2345 (insert-directory dirname switches wildcard (not wildcard))))))) 2346 (insert-directory dirname switches wildcard (not wildcard)))))))
2346 2347
2347 (defvar insert-directory-program "ls" 2348 (defvar insert-directory-program "ls"
2348 "Absolute or relative name of the `ls' program used by `insert-directory'.") 2349 "Absolute or relative name of the `ls' program used by `insert-directory'.")