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

change to dired-add-entry (Bug#2410).

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 6ea346637c291070ad87c9b2d5df2b63d121b2e2..16b9f174034ba199a924f3ce76b4715f65bba6e5 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -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) ".")