diff options
| author | John Paul Wallington <jpw@pobox.com> | 2003-05-14 16:20:51 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2003-05-14 16:20:51 +0000 |
| commit | d4939c66c230d2c9ab89c9f6f20bef678595508c (patch) | |
| tree | 12ebd1f7789cf856f67daa96544b914f7b70d017 /lisp/ls-lisp.el | |
| parent | 1d2b9bbaf9f72541c4d3e3087c7d572980974391 (diff) | |
| download | emacs-d4939c66c230d2c9ab89c9f6f20bef678595508c.tar.gz | |
(insert-directory): Remove --dired switch when
`ls-lisp-use-insert-directory-program' is nil.
Diffstat (limited to 'lisp/ls-lisp.el')
| -rw-r--r-- | lisp/ls-lisp.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el index 54c76a9d725..b6621b08566 100644 --- a/lisp/ls-lisp.el +++ b/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 |