(uniquify-rationalize-file-buffer-names): If

newbuffile is nil, don't call expand-file-name on it.
This commit is contained in:
Karl Heuer 1996-01-08 22:41:40 +00:00
parent 7ac098ffa9
commit 04f3a6563a

View file

@ -147,7 +147,8 @@ pathname elements. Arguments cause only a subset of buffers to be renamed."
(while buffers
(let* ((buffer (car buffers))
(bfn (if (eq buffer newbuf)
(expand-file-name newbuffile)
(and newbuffile
(expand-file-name newbuffile))
(uniquify-buffer-file-name buffer)))
(rawname (and bfn (file-name-nondirectory bfn)))
(deserving (and rawname