(ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11

change to dired-add-entry (Bug#2410).
This commit is contained in:
Chong Yidong 2009-02-23 17:48:35 +00:00
parent d4bef9b57f
commit cc5be3ab22

View file

@ -4478,7 +4478,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
;; then do an ls of current dir, which obviously won't work if we
;; 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)
(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) ".")