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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 343b629d72de8e6ab7dbea7e48d64cfe9ee2e9e9..600dbcd19576d556871d26c95fbfe5fd91738ee4 100644 (file)
--- 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 521471a1da14239a0b088210589bad9d3a91d11e..9b944ce4cf2170df021c3c5a04751cd9ad18de34 100644 (file)
--- 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)))