[Linedit-cvs] CVS update: src/complete.lisp

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv28411

Modified Files:
	complete.lisp 
Log Message:
Fix (refuse) completion on wild pathnames
Date: Fri Mar  5 14:52:22 2004
Author: nsiivola

Index: src/complete.lisp
diff -u src/complete.lisp:1.4 src/complete.lisp:1.5
--- src/complete.lisp:1.4	Fri Mar  5 13:58:58 2004
+++ src/complete.lisp	Fri Mar  5 14:52:22 2004
@@ -46,7 +46,8 @@
 	 (namefun (if (relative-pathname-p string)
 		      #'namestring
 		      (lambda (x) (namestring (merge-pathnames x))))))
-    (unless (underlying-directory-p dir)
+    (unless (and (underlying-directory-p dir)
+		 (not (wild-pathname-p dir)))
       (return-from directory-complete (values nil 0)))
     (with-directory-iterator (next dir)
       (loop for entry = (next)