[Emacs-diffs] emacs/lisp/net ange-ftp.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/02/23 17:48:35

Modified files:
        lisp/net       : ange-ftp.el 

Log message:
        (ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11
        change to dired-add-entry (Bug#2410).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/ange-ftp.el?cvsroot=emacs&r1=1.102&r2=1.103

Patches:
Index: ange-ftp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/ange-ftp.el,v
retrieving revision 1.102
retrieving revision 1.103
diff -u -b -r1.102 -r1.103
--- ange-ftp.el 5 Jan 2009 03:22:43 -0000       1.102
+++ ange-ftp.el 23 Feb 2009 17:48:35 -0000      1.103
@@ -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) ".")