4380 |
|
|
4381 |
(defun ange-ftp-insert-directory (file switches &optional wildcard full) |
(defun ange-ftp-insert-directory (file switches &optional wildcard full) |
4382 |
(let ((short (ange-ftp-abbreviate-filename file)) |
(let ((short (ange-ftp-abbreviate-filename file)) |
4383 |
(parsed (ange-ftp-ftp-name (expand-file-name file)))) |
(parsed (ange-ftp-ftp-name (expand-file-name file))) |
4384 |
|
tem) |
4385 |
(if parsed |
(if parsed |
4386 |
(insert |
(if (and (not wildcard) |
4387 |
(if wildcard |
(setq tem (file-symlink-p (directory-file-name file)))) |
4388 |
(let ((default-directory (file-name-directory file))) |
(ange-ftp-insert-directory |
4389 |
(ange-ftp-ls (file-name-nondirectory file) switches nil nil t)) |
(ange-ftp-replace-name-component file tem) |
4390 |
(ange-ftp-ls file switches full))) |
switches wildcard full) |
4391 |
|
(insert |
4392 |
|
(if wildcard |
4393 |
|
(let ((default-directory (file-name-directory file))) |
4394 |
|
(ange-ftp-ls (file-name-nondirectory file) switches nil nil t)) |
4395 |
|
(ange-ftp-ls file switches full))))q |
4396 |
(ange-ftp-real-insert-directory file switches wildcard full)))) |
(ange-ftp-real-insert-directory file switches wildcard full)))) |
4397 |
|
|
4398 |
(defun ange-ftp-dired-uncache (dir) |
(defun ange-ftp-dired-uncache (dir) |