Commit cc2f3b64 authored by Jim Blandy's avatar Jim Blandy
Browse files

* ls-lisp.el (insert-directory): If no handler, convert SWITCHES

	from a string to a list of characters.
parent 7eb9ba41
......@@ -62,10 +62,12 @@ It does not support ordinary shell wildcards; instead, it allows
regular expressions to match file names.
The switches that work are: A a c i r S s t u"
(let (handler ((find-file-name-handler file)))
(let ((handler (find-file-name-handler file)))
(if handler
(funcall handler 'insert-directory file switches
wildcard full-directory-p)
;; Convert SWITCHES to a list of characters.
(setq switches (append switches nil))
(if wildcard
(setq wildcard (file-name-nondirectory file) ; actually emacs regexp
;; perhaps convert it from shell to emacs syntax?
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