(pcomplete-entries): Expand environment variables in filename.

2 files changed, 7 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 343b629d72d..600dbcd1957 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-07  Miles Bader  <miles@gnu.org>
+
+        * pcomplete.el (pcomplete-entries): Expand environment variables
+        in filename.
+
 2002-03-10  Daniel Pfeiffer  <occitan@esperanto.org>
 
         * play/mpuz.el: Use defface instead of facemenu-get-face.
diff --git a/lisp/pcomplete.el b/lisp/pcomplete.el
index 521471a1da1..9b944ce4cf2 100644
--- a/lisp/pcomplete.el
+++ b/lisp/pcomplete.el
@@ -1,6 +1,6 @@
 ;;; pcomplete.el --- programmable completion
 
-;; Copyright (C) 1999, 2000, 2001 Free Sofware Foundation
+;; Copyright (C) 1999, 2000, 2001, 2002 Free Sofware Foundation
 
 ;; Author: John Wiegley <johnw@gnu.org>
 ;; Keywords: processes abbrev
@@ -703,7 +703,7 @@ If PREDICATE is non-nil, it will also be used to refine the match
 \(files for which the PREDICATE returns nil will be excluded).
 If PATH is non-nil, it will be used for completion instead of
 consulting the last argument."
-  (let* ((name pcomplete-stub)
+  (let* ((name (substitute-env-vars pcomplete-stub))
          (default-directory (expand-file-name
                              (or (file-name-directory name)
                                  default-directory)))