Mercurial > emacs

changeset 50992:01a94a546935

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(insert-directory): Remove --dired switch when `ls-lisp-use-insert-directory-program' is nil.
author John Paul Wallington <jpw@pobox.com>
date Wed, 14 May 2003 16:19:11 +0000
parents d79cc0e092b2
children 5cdcabc328d7
files lisp/ls-lisp.el
diffstat 1 files changed, 3 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ls-lisp.el	Wed May 14 15:02:05 2003 +0000
+++ b/lisp/ls-lisp.el	Wed May 14 16:19:11 2003 +0000
@@ -216,6 +216,9 @@
       (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