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 | cc2f3b6482df81ec997c43cca46f7c1166be50db (patch) | |
| tree | 5f2573f7beabc6864041873620e7395fbdaf68e6 | |
| parent | 7eb9ba4137c648d7fa84dbe507948383269124ba (diff) | |
| download | emacs-cc2f3b6482df81ec997c43cca46f7c1166be50db.tar.gz emacs-cc2f3b6482df81ec997c43cca46f7c1166be50db.tar.bz2 emacs-cc2f3b6482df81ec997c43cca46f7c1166be50db.zip | |
* ls-lisp.el (insert-directory): If no handler, convert SWITCHES
from a string to a list of characters.
| -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? |