Mercurial > emacs
comparison lisp/complete.el @ 25207:e62d2121822f
(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 | 07ae57ea2a18 |
| children | 6063383b77d5 |
comparison
equal
deleted
inserted
replaced
| 25206:f2c7d7fb6198 | 25207:e62d2121822f |
|---|---|
| 444 (if filename | 444 (if filename |
| 445 (if incname | 445 (if incname |
| 446 (setq basestr (substring str incname) | 446 (setq basestr (substring str incname) |
| 447 dirname (substring str 0 incname)) | 447 dirname (substring str 0 incname)) |
| 448 (setq basestr (file-name-nondirectory str) | 448 (setq basestr (file-name-nondirectory str) |
| 449 dirname (file-name-directory str))) | 449 dirname (file-name-directory str)) |
| 450 ;; Make sure str is consistent with its directory and basename | |
| 451 ;; parts. This is important on DOZe'NT systems when str only | |
| 452 ;; includes a drive letter, like in "d:". | |
| 453 (setq str (concat dirname basestr))) | |
| 450 (setq basestr str)) | 454 (setq basestr str)) |
| 451 | 455 |
| 452 ;; Convert search pattern to a standard regular expression | 456 ;; Convert search pattern to a standard regular expression |
| 453 (setq regex (regexp-quote basestr) | 457 (setq regex (regexp-quote basestr) |
| 454 offset (if (and (> (length regex) 0) | 458 offset (if (and (> (length regex) 0) |