Mercurial > emacs
diff lisp/net/ange-ftp.el @ 74766:ca4412906dbd
* net/ange-ftp.el (ange-ftp-file-name-completion): Handle optional
parameter PREDICATE.
* lisp/tramp.el (tramp-handle-file-name-completion)
(tramp-completion-handle-file-name-completion): Handle optional
parameter PREDICATE.
(tramp-find-default-method): Add code for default values.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Wed, 20 Dec 2006 05:57:41 +0000 |
| parents | 067115a6e738 |
| children | e3694f1cb928 bc10a33dd40b |
line wrap: on
line diff
--- a/lisp/net/ange-ftp.el Wed Dec 20 05:16:36 2006 +0000 +++ b/lisp/net/ange-ftp.el Wed Dec 20 05:57:41 2006 +0000 @@ -3977,7 +3977,7 @@ ange-ftp-this-dir)) (ange-ftp-real-file-name-all-completions file ange-ftp-this-dir))))) -(defun ange-ftp-file-name-completion (file dir) +(defun ange-ftp-file-name-completion (file dir &optional predicate) (let ((ange-ftp-this-dir (expand-file-name dir))) (if (ange-ftp-ftp-name ange-ftp-this-dir) (progn @@ -4005,8 +4005,13 @@ file (nconc (ange-ftp-generate-root-prefixes) (ange-ftp-real-file-name-all-completions - file ange-ftp-this-dir))) - (ange-ftp-real-file-name-completion file ange-ftp-this-dir))))) + file ange-ftp-this-dir)) + predicate) + (if predicate + (ange-ftp-real-file-name-completion + file ange-ftp-this-dir predicate) + (ange-ftp-real-file-name-completion + file ange-ftp-this-dir)))))) (defun ange-ftp-file-name-completion-1 (file tbl dir &optional predicate)