# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1235411315 0
# Node ID d79785ea10887966a2a8b81cef6a0db40547d17e
# Parent  211e39432f4460f8c81d48a81c1a3830737b3a4f
(ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11
change to dired-add-entry (Bug#2410).

diff -r 211e39432f44 -r d79785ea1088 lisp/net/ange-ftp.el
--- a/lisp/net/ange-ftp.el	Mon Feb 23 17:48:16 2009 +0000
+++ b/lisp/net/ange-ftp.el	Mon Feb 23 17:48:35 2009 +0000
@@ -4478,7 +4478,7 @@
        ;; 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) ".")