# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1015820111 0
# Node ID 074094fab9d62f77c675f69adeb5ad7b74bc8952
# Parent  a7e0faaa30c2e59ecc80add5d100173bd9aede40
(pcomplete-entries): Expand environment variables in filename.

diff -r a7e0faaa30c2 -r 074094fab9d6 lisp/pcomplete.el
--- a/lisp/pcomplete.el	Sun Mar 10 17:28:58 2002 +0000
+++ b/lisp/pcomplete.el	Mon Mar 11 04:15:11 2002 +0000
@@ -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 @@
 \(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)))