Mercurial > hg > xemacs-beta

comparison lisp/efs/efs.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents 8b8b7f3559a2
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
7840 "$"))) 7840 "$")))
7841 7841
7842 7842
7843 ;;; Getting directory listings. 7843 ;;; Getting directory listings.
7844 7844
7845 (defun efs-directory-files (directory &optional full match nosort) 7845 (defun efs-directory-files (directory &optional full match nosort &rest ignored-for-now)
7846 ;; Returns directory-files for remote directories. 7846 ;; Returns directory-files for remote directories.
7847 ;; NOSORT is a V19 arg. 7847 ;; NOSORT is a V19 arg.
7848 (let* ((directory (expand-file-name directory)) 7848 (let* ((directory (expand-file-name directory))
7849 (parsed (efs-ftp-path directory)) 7849 (parsed (efs-ftp-path directory))
7850 (directory (efs-internal-file-name-as-directory 7850 (directory (efs-internal-file-name-as-directory