/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by rms, Sat Dec 29 00:46:11 2001 UTC revision 1.20 by rms, Sat Dec 29 02:50:34 2001 UTC
# Line 4380  NEWNAME should be the name to give the n Line 4380  NEWNAME should be the name to give the n
4380    
4381  (defun ange-ftp-insert-directory (file switches &optional wildcard full)  (defun ange-ftp-insert-directory (file switches &optional wildcard full)
4382    (let ((short (ange-ftp-abbreviate-filename file))    (let ((short (ange-ftp-abbreviate-filename file))
4383          (parsed (ange-ftp-ftp-name (expand-file-name file))))          (parsed (ange-ftp-ftp-name (expand-file-name file)))
4384            tem)
4385      (if parsed      (if parsed
4386          (insert          (if (and (not wildcard)
4387           (if wildcard                   (setq tem (file-symlink-p (directory-file-name file))))
4388               (let ((default-directory (file-name-directory file)))              (ange-ftp-insert-directory
4389                 (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))               (ange-ftp-replace-name-component file tem)
4390             (ange-ftp-ls file switches full)))               switches wildcard full)
4391              (insert
4392               (if wildcard
4393                   (let ((default-directory (file-name-directory file)))
4394                     (ange-ftp-ls (file-name-nondirectory file) switches nil nil t))
4395                 (ange-ftp-ls file switches full))))q
4396        (ange-ftp-real-insert-directory file switches wildcard full))))        (ange-ftp-real-insert-directory file switches wildcard full))))
4397    
4398  (defun ange-ftp-dired-uncache (dir)  (defun ange-ftp-dired-uncache (dir)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26