[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el |
Date: |
Sat, 29 Dec 2001 15:43:15 -0500 |
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)