From: John Wiegley <johnw@newartisans.com>
Date: Tue, 1 Nov 2005 07:03:03 +0000 (+0000)
Subject: (eshell-extended-glob): Expand the "." path before passing it down to
X-Git-Tag: emacs-pretest-22.0.90~6155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=669dc0a115c603f247e6724ff83e435919f7e3c6;p=emacs.git

(eshell-extended-glob): Expand the "." path before passing it down to
`eshell-glob-entries'.  This is done because special file-handlers
will on trigger on ".", even if `default-directory' is special.
---

diff --git a/lisp/eshell/em-glob.el b/lisp/eshell/em-glob.el
index 869144dad74..ec7ed22876a 100644
--- a/lisp/eshell/em-glob.el
+++ b/lisp/eshell/em-glob.el
@@ -254,7 +254,8 @@ the form:
 		 (file-name-absolute-p (car paths)))
 	    (eshell-glob-entries (file-name-as-directory (car paths))
 				 (cdr paths))
-	  (eshell-glob-entries (file-name-as-directory ".") paths))
+	  (eshell-glob-entries (expand-file-name
+				(file-name-as-directory ".")) paths))
       (if message-shown
 	  (message nil)))
     (or (and matches (nreverse matches))