diff options
| author | John Wiegley <johnw@newartisans.com> | 2000-09-01 22:48:12 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2000-09-01 22:48:12 +0000 |
| commit | 79cf8e808eed44d1fb836639a6ede0f19b92726d (patch) | |
| tree | 94b930a7a2be0b8816b00a6f75e86460508423fb /lisp/pcomplete.el | |
| parent | 778911b922acbca7fe4dae5c025e39141b7145fa (diff) | |
| download | emacs-79cf8e808eed44d1fb836639a6ede0f19b92726d.tar.gz | |
See ChangeLog
Diffstat (limited to 'lisp/pcomplete.el')
| -rw-r--r-- | lisp/pcomplete.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el index 4f506212230..218bc670f49 100644 --- a/lisp/pcomplete.el +++ b/lisp/pcomplete.el @@ -686,7 +686,11 @@ Magic characters are those in `pcomplete-arg-quote-list'." (defsubst pcomplete-dirs-or-entries (&optional regexp predicate) "Return either directories, or qualified entries." (append (let ((pcomplete-stub pcomplete-stub)) - (pcomplete-entries regexp predicate)) + (pcomplete-entries + regexp (or predicate + (function + (lambda (path) + (not (file-directory-p path))))))) (pcomplete-entries nil 'file-directory-p))) (defun pcomplete-entries (&optional regexp predicate) |