199 |
(setq bfn (if (eq buffer newbuf) |
(setq bfn (if (eq buffer newbuf) |
200 |
(when newbuffile |
(when newbuffile |
201 |
(expand-file-name |
(expand-file-name |
202 |
(if (file-directory-p newbuffile) |
(directory-file-name newbuffile))) |
|
(directory-file-name newbuffile) |
|
|
newbuffile))) |
|
203 |
(uniquify-buffer-file-name buffer))) |
(uniquify-buffer-file-name buffer))) |
204 |
(setq rawname (uniquify-file-name-nondirectory bfn)) |
(setq rawname (uniquify-file-name-nondirectory bfn)) |
205 |
(or (not newbuffile) |
(or (not newbuffile) |