diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2010-02-05 12:15:28 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2010-02-05 12:15:28 +0100 |
| commit | d9320986e56f1a3761ad8da0f77794fa9c99ef46 (patch) | |
| tree | 6f30050b7c1ce448529230124c76d343e9919595 /lisp/net/ange-ftp.el | |
| parent | f43d8ecc20470f4021ac2e2900f6f3ef15300ff2 (diff) | |
| download | emacs-d9320986e56f1a3761ad8da0f77794fa9c99ef46.tar.gz emacs-d9320986e56f1a3761ad8da0f77794fa9c99ef46.tar.bz2 emacs-d9320986e56f1a3761ad8da0f77794fa9c99ef46.zip | |
* net/ange-ftp.el (ange-ftp-insert-directory):
* net/tramp-imap.el (tramp-imap-handle-insert-directory):
* net/tramp-smb.el (tramp-smb-handle-insert-directory):
Handle also directories. (Bug#5478)
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 127fba3d7fb..97a334a50ff 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4533,9 +4533,10 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") (when (string-match "-?d\\'" switches) ;; Remove "d" which dired added to `switches'. (setq switches (substring switches 0 (match-beginning 0)))) + (setq file (directory-file-name file)) (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".") switches 'parse)) - (filename (file-name-nondirectory (directory-file-name file))) + (filename (file-name-nondirectory file)) (case-fold-search nil)) ;; FIXME: This presumes a particular output format, which is ;; basically Unix. |