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

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.19 emacs/lisp/net/ange-ftp.el:1.20
*** emacs/lisp/net/ange-ftp.el:1.19     Fri Dec 28 19:46:11 2001
--- emacs/lisp/net/ange-ftp.el  Fri Dec 28 21:50:34 2001
***************
*** 4380,4392 ****
  
  (defun ange-ftp-insert-directory (file switches &optional wildcard full)
    (let ((short (ange-ftp-abbreviate-filename file))
!       (parsed (ange-ftp-ftp-name (expand-file-name file))))
      (if parsed
!       (insert
!        (if wildcard
!            (let ((default-directory (file-name-directory file)))
!              (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))
!          (ange-ftp-ls file switches full)))
        (ange-ftp-real-insert-directory file switches wildcard full))))
  
  (defun ange-ftp-dired-uncache (dir)
--- 4380,4398 ----
  
  (defun ange-ftp-insert-directory (file switches &optional wildcard full)
    (let ((short (ange-ftp-abbreviate-filename file))
!       (parsed (ange-ftp-ftp-name (expand-file-name file)))
!       tem)
      (if parsed
!       (if (and (not wildcard)
!                (setq tem (file-symlink-p (directory-file-name file))))
!           (ange-ftp-insert-directory
!            (ange-ftp-replace-name-component file tem)
!            switches wildcard full)
!         (insert
!          (if wildcard
!              (let ((default-directory (file-name-directory file)))
!                (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))
!            (ange-ftp-ls file switches full))))q
        (ange-ftp-real-insert-directory file switches wildcard full))))
  
  (defun ange-ftp-dired-uncache (dir)