From: Roland McGrath <roland@gnu.org>
Date: Tue, 3 Aug 1993 07:52:10 +0000 (+0000)
Subject: (comint-dynamic-list-completions): Expand PATHDIR in call to
X-Git-Tag: emacs-19.34~11410
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2829f7e326515f8221d126d9717a40f56c5edb21;p=emacs.git

(comint-dynamic-list-completions): Expand PATHDIR in call to
file-name-completion.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index fa71e58290f..d660ff48831 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1214,7 +1214,9 @@ it just adds completion characters to the end of the filename."
 	 (pathnondir (file-name-nondirectory pathname))
 	 (completions
 	  (file-name-all-completions pathnondir
-				     (or pathdir default-directory))))
+				     (if pathdir
+					 (expand-file-name pathdir)
+				       default-directory))))
     (cond ((null completions)
 	   (message "No completions of %s" pathname)
 	   (ding))