2468 |
(if (and (string-match "\\.[^.]*\\'" file) |
(if (and (string-match "\\.[^.]*\\'" file) |
2469 |
(not (eq 0 (match-beginning 0)))) |
(not (eq 0 (match-beginning 0)))) |
2470 |
(if (setq directory (file-name-directory filename)) |
(if (setq directory (file-name-directory filename)) |
2471 |
(expand-file-name (substring file 0 (match-beginning 0)) |
;; Don't use expand-file-name here; if DIRECTORY is relative, |
2472 |
directory) |
;; we don't want to expand it. |
2473 |
|
(concat directory (substring file 0 (match-beginning 0))) |
2474 |
(substring file 0 (match-beginning 0))) |
(substring file 0 (match-beginning 0))) |
2475 |
filename)))) |
filename)))) |
2476 |
|
|