From: Michael Albinus <michael.albinus@gmx.de>
Date: Thu, 28 Jan 2021 14:09:29 +0000 (+0100)
Subject: * lisp/net/ange-ftp.el (ange-ftp-ls): Handle several "--dired" switches.
X-Git-Tag: emacs-28.0.90~4075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ac102bb966f7944babbd8594684550905eecca0a;p=emacs.git

* lisp/net/ange-ftp.el (ange-ftp-ls): Handle several "--dired" switches.
---

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 9559b125135..fa13dd57d1d 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -2547,7 +2547,7 @@ can parse the output from a DIR listing for a host of type TYPE.")
 FILE is the full name of the remote file, LSARGS is any args to pass to the
 `ls' command, and PARSE specifies that the output should be parsed and stored
 away in the internal cache."
-  (when (string-match "^--dired\\s-+" lsargs)
+  (while (string-match "^--dired\\s-+" lsargs)
     (setq lsargs (replace-match "" nil t lsargs)))
   ;; If parse is t, we assume that file is a directory. i.e. we only parse
   ;; full directory listings.