Mercurial > emacs

changeset 25207:e62d2121822f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PC-do-completion): If completing on file name, reproduce str by concatenating its directory and basename parts.
author Eli Zaretskii <eliz@gnu.org>
date Mon, 09 Aug 1999 08:56:31 +0000
parents f2c7d7fb6198
children 76f5f50e7742
files lisp/complete.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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