/[emacs]/emacs/lisp/pcomplete.el
ViewVC logotype

Diff of /emacs/lisp/pcomplete.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.7 by pj, Mon Jul 16 12:22:58 2001 UTC revision 1.8 by miles, Mon Mar 11 04:15:11 2002 UTC
# Line 1  Line 1 
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
# Line 703  If PREDICATE is non-nil, it will also be Line 703  If PREDICATE is non-nil, it will also be
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)))

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26