216 |
(if handler |
(if handler |
217 |
(funcall handler 'insert-directory file switches |
(funcall handler 'insert-directory file switches |
218 |
wildcard full-directory-p) |
wildcard full-directory-p) |
219 |
|
;; Remove --dired switch |
220 |
|
(if (string-match "--dired " switches) |
221 |
|
(setq switches (replace-match "" nil nil switches))) |
222 |
;; Convert SWITCHES to a list of characters. |
;; Convert SWITCHES to a list of characters. |
223 |
(setq switches (delete ?- (append switches nil))) |
(setq switches (delete ?- (append switches nil))) |
224 |
(if wildcard |
(if wildcard |