(insert-directory): Remove --dired switch when

`ls-lisp-use-insert-directory-program' is nil.

lisp/ChangeLog

+2003-05-14  John Paul Wallington  <jpw@gnu.org>
+
+	* ls-lisp.el (insert-directory): Remove --dired switch when
+	`ls-lisp-use-insert-directory-program' is nil.
+
 2003-05-13  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* textmodes/ispell.el (xemacsp): Remove.  Use (featurep 'xemacs).

lisp/ls-lisp.el

@@ -216,6 +216,9 @@ that work are: A a c i r S s t u U X g G B C R and F partly."
       (if handler
 	  (funcall handler 'insert-directory file switches
 		   wildcard full-directory-p)
+	;; Remove --dired switch
+	(if (string-match "--dired " switches)
+	    (setq switches (replace-match "" nil nil switches)))
 	;; Convert SWITCHES to a list of characters.
 	(setq switches (delete ?- (append switches nil)))
 	(if wildcard