Mercurial > emacs
changeset 3789:0af7cedb1081
* ls-lisp.el (insert-directory): If no handler, convert SWITCHES
from a string to a list of characters.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 17 Jun 1993 02:53:14 +0000 |
| parents | 41a297faf4ac |
| children | 554e6c290291 |
| files | lisp/ls-lisp.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ls-lisp.el Thu Jun 17 02:41:40 1993 +0000 +++ b/lisp/ls-lisp.el Thu Jun 17 02:53:14 1993 +0000 @@ -62,10 +62,12 @@ 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?