mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(PC-do-completion): If completing on file name,

Browse Source 
reproduce str by concatenating its directory and basename parts.
This commit is contained in:
Eli Zaretskii 1999-08-09 08:56:31 +00:00
parent 1076254d83
commit b38d1cc78e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/complete.el
View File

@ -446,7 +446,11 @@ of `minibuffer-completion-table' and the minibuffer contents.")
(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