Commit cc2f3b64 authored by Jim Blandy's avatar Jim Blandy

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