comparison lisp/pcomplete.el @ 46762:85cd02534241

(pcomplete-entries): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Wed, 31 Jul 2002 22:01:54 +0000
parents 074094fab9d6
children 8bb6a2e5d6bd
comparison
equal deleted inserted replaced
46761:80075b7b7612 46762:85cd02534241
693 (not (file-directory-p path))))))) 693 (not (file-directory-p path)))))))
694 (pcomplete-entries nil 'file-directory-p))) 694 (pcomplete-entries nil 'file-directory-p)))
695 695
696 (defun pcomplete-entries (&optional regexp predicate) 696 (defun pcomplete-entries (&optional regexp predicate)
697 "Complete against a list of directory candidates. 697 "Complete against a list of directory candidates.
698 This function always uses the last argument as the basis for
699 completion.
700 If REGEXP is non-nil, it is a regular expression used to refine the 698 If REGEXP is non-nil, it is a regular expression used to refine the
701 match (files not matching the REGEXP will be excluded). 699 match (files not matching the REGEXP will be excluded).
702 If PREDICATE is non-nil, it will also be used to refine the match 700 If PREDICATE is non-nil, it will also be used to refine the match
703 \(files for which the PREDICATE returns nil will be excluded). 701 \(files for which the PREDICATE returns nil will be excluded).
704 If PATH is non-nil, it will be used for completion instead of 702 If no directory information can be extracted from the completed
705 consulting the last argument." 703 component, DEFAULT-DIRECTORY is used as the basis for completion."
706 (let* ((name (substitute-env-vars pcomplete-stub)) 704 (let* ((name (substitute-env-vars pcomplete-stub))
707 (default-directory (expand-file-name 705 (default-directory (expand-file-name
708 (or (file-name-directory name) 706 (or (file-name-directory name)
709 default-directory))) 707 default-directory)))
710 above-cutoff) 708 above-cutoff)