diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-17 02:53:14 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-17 02:53:14 +0000 |
| commit | 5dd75147a96864e71731b7bebc7d24d9d970cbab (patch) | |
| tree | d6b5fd9901467ba4b847fbf704dfd823cd1442b5 /lisp/ls-lisp.el | |
| parent | 58a73897d1d17542b8408fed72214a00b5941456 (diff) | |
| download | emacs-5dd75147a96864e71731b7bebc7d24d9d970cbab.tar.gz | |
* ls-lisp.el (insert-directory): If no handler, convert SWITCHES
from a string to a list of characters.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 54da7fdc438..aa97960750c 100644 --- a/lisp/ls-lisp.el +++ b/lisp/ls-lisp.el @@ -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? |