From cc5be3ab2240d58443d4c17cc49d47520c812799 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 23 Feb 2009 17:48:35 +0000 Subject: (ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11 change to dired-add-entry (Bug#2410). --- lisp/net/ange-ftp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 6ea346637c..16b9f17403 100644 --- 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) ".") -- cgit v1.2.3