diff options
| author | Chong Yidong | 2009-02-23 17:48:35 +0000 |
|---|---|---|
| committer | Chong Yidong | 2009-02-23 17:48:35 +0000 |
| commit | cc5be3ab2240d58443d4c17cc49d47520c812799 (patch) | |
| tree | a5554ada08131d86d24266dd5707be11e19715cf | |
| parent | d4bef9b57fd22069a6d946734e3cd87eb72cc829 (diff) | |
| download | emacs-cc5be3ab2240d58443d4c17cc49d47520c812799.tar.gz emacs-cc5be3ab2240d58443d4c17cc49d47520c812799.zip | |
(ange-ftp-insert-directory): Adapt switch manipulation to 2009-02-11
change to dired-add-entry (Bug#2410).
| -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.") | |||
| 4478 | ;; then do an ls of current dir, which obviously won't work if we | 4478 | ;; then do an ls of current dir, which obviously won't work if we |
| 4479 | ;; want to ls a file. So instead, we get a full listing of the | 4479 | ;; want to ls a file. So instead, we get a full listing of the |
| 4480 | ;; parent directory and extract the line corresponding to `file'. | 4480 | ;; parent directory and extract the line corresponding to `file'. |
| 4481 | (when (string-match "d\\'" switches) | 4481 | (when (string-match "-?d\\'" switches) |
| 4482 | ;; Remove "d" which dired added to `switches'. | 4482 | ;; Remove "d" which dired added to `switches'. |
| 4483 | (setq switches (substring switches 0 (match-beginning 0)))) | 4483 | (setq switches (substring switches 0 (match-beginning 0)))) |
| 4484 | (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".") | 4484 | (let* ((dirlist (ange-ftp-ls (or (file-name-directory file) ".") |