diff lisp/complete.el @ 25207:e62d2121822f

(PC-do-completion): If completing on file name, reproduce str by concatenating its directory and basename parts.

--- a/lisp/complete.el	Sat Aug 07 16:16:32 1999 +0000
+++ b/lisp/complete.el	Mon Aug 09 08:56:31 1999 +0000
@@ -446,7 +446,11 @@
 	      (setq basestr (substring str incname)
 		    dirname (substring str 0 incname))
 	    (setq basestr (file-name-nondirectory str)
-		  dirname (file-name-directory str)))
+		  dirname (file-name-directory str))
+	    ;; Make sure str is consistent with its directory and basename
+	    ;; parts.  This is important on DOZe'NT systems when str only
+	    ;; includes a drive letter, like in "d:".
+	    (setq str (concat dirname basestr)))
 	(setq basestr str))
 
       ;; Convert search pattern to a standard regular expression