1 |
;;; pcomplete.el --- programmable completion |
;;; pcomplete.el --- programmable completion |
2 |
|
|
3 |
;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation |
;; Copyright (C) 1999, 2000, 2001, 2002 Free Sofware Foundation |
4 |
|
|
5 |
;; Author: John Wiegley <johnw@gnu.org> |
;; Author: John Wiegley <johnw@gnu.org> |
6 |
;; Keywords: processes abbrev |
;; Keywords: processes abbrev |
703 |
\(files for which the PREDICATE returns nil will be excluded). |
\(files for which the PREDICATE returns nil will be excluded). |
704 |
If PATH is non-nil, it will be used for completion instead of |
If PATH is non-nil, it will be used for completion instead of |
705 |
consulting the last argument." |
consulting the last argument." |
706 |
(let* ((name pcomplete-stub) |
(let* ((name (substitute-env-vars pcomplete-stub)) |
707 |
(default-directory (expand-file-name |
(default-directory (expand-file-name |
708 |
(or (file-name-directory name) |
(or (file-name-directory name) |
709 |
default-directory))) |
default-directory))) |