diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-02-23 17:48:35 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-02-23 17:48:35 +0000 |
| commit | cc5be3ab2240d58443d4c17cc49d47520c812799 (patch) | |
| tree | a5554ada08131d86d24266dd5707be11e19715cf /lisp/net/ange-ftp.el | |
| parent | d4bef9b57fd22069a6d946734e3cd87eb72cc829 (diff) | |
| download | emacs-cc5be3ab2240d58443d4c17cc49d47520c812799.tar.gz | |
(ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11
change to dired-add-entry (Bug#2410).
Diffstat (limited to 'lisp/net/ange-ftp.el')
| -rw-r--r-- | lisp/net/ange-ftp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 6ea346637c2..16b9f174034 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) ".") |