From: Miles Bader Date: Mon, 11 Mar 2002 04:15:31 +0000 (+0000) Subject: (pcomplete-entries): Expand environment variables in filename. X-Git-Tag: ttn-vms-21-2-B4~16237 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a5782b5da0b1305734714b37ed8d6e4c6ac41f0;p=emacs.git (pcomplete-entries): Expand environment variables in filename. --- 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 + + * pcomplete.el (pcomplete-entries): Expand environment variables + in filename. + 2002-03-10 Daniel Pfeiffer * 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 ;; 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)))