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

[Juanma Barranquero]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.45 emacs/lisp/net/ange-ftp.el:1.46
*** emacs/lisp/net/ange-ftp.el:1.45     Thu Aug 29 17:48:50 2002
--- emacs/lisp/net/ange-ftp.el  Sun Sep 22 09:01:10 2002
***************
*** 2527,2532 ****
--- 2527,2534 ----
  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)
+     (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.
    (let* ((ange-ftp-this-file (ange-ftp-expand-file-name file))
***************
*** 4416,4421 ****
--- 4418,4426 ----
  ;; Some of the old dired hooks would still be needed even if this is done.
  ;; I have preserved (and modernized) those hooks.
  ;; So the format conversion should be all that is needed.
+ 
+ ;; When called from dired, SWITCHES may start with "--dired".
+ ;; `ange-ftp-ls' handles this.
  
  (defun ange-ftp-insert-directory (file switches &optional wildcard full)
    (let ((short (ange-ftp-abbreviate-filename file))