comparison lisp/net/ange-ftp.el @ 107092:2e763e444bc2

* 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)

107091:c2a34eaf2f6a

       ;; want to ls a file.  So instead, we get a full listing of the
       ;; parent directory and extract the line corresponding to `file'.
       (when (string-match "-?d\\'" switches)
         ;; Remove "d" which dired added to `switches'.
         (setq switches (substring switches 0 (match-beginning 0))))
       (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".")
                                    switches 'parse))
              (filename (file-name-nondirectory (directory-file-name file)))
              (case-fold-search nil))
         ;; FIXME: This presumes a particular output format, which is
         ;; basically Unix.
         (if (string-match (concat "^.+[^ ] " (regexp-quote filename)
                                   "\\( -> .*\\)?[@/*=]?\n") dirlist)

107092:2e763e444bc2

       ;; want to ls a file.  So instead, we get a full listing of the
       ;; parent directory and extract the line corresponding to `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 file))
              (case-fold-search nil))
         ;; FIXME: This presumes a particular output format, which is
         ;; basically Unix.
         (if (string-match (concat "^.+[^ ] " (regexp-quote filename)
                                   "\\( -> .*\\)?[@/*=]?\n") dirlist)