2721 |
(defun tramp-handle-insert-directory |
(defun tramp-handle-insert-directory |
2722 |
(filename switches &optional wildcard full-directory-p) |
(filename switches &optional wildcard full-directory-p) |
2723 |
"Like `insert-directory' for tramp files." |
"Like `insert-directory' for tramp files." |
2724 |
|
;; For the moment, we assume that the remote "ls" program does not |
2725 |
|
;; grok "--dired". In the future, we should detect this on |
2726 |
|
;; connection setup. |
2727 |
|
(when (string-match "^--dired\\s-+" switches) |
2728 |
|
(setq switches (replace-match "" nil t switches))) |
2729 |
(setq filename (expand-file-name filename)) |
(setq filename (expand-file-name filename)) |
2730 |
(with-parsed-tramp-file-name filename nil |
(with-parsed-tramp-file-name filename nil |
2731 |
(when (tramp-ange-ftp-file-name-p multi-method method) |
(when (tramp-ange-ftp-file-name-p multi-method method) |