# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 740285594 0
# Node ID 0af7cedb1081a6ebe6bd0b9af8b22e8d8d09952e
# Parent  41a297faf4acb753fdaf70de82791efb4bc76f0c
	* ls-lisp.el (insert-directory): If no handler, convert SWITCHES
	from a string to a list of characters.

diff -r 41a297faf4ac -r 0af7cedb1081 lisp/ls-lisp.el
--- 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?