>>906
期待しているのはこんな感じ?

(defun rename3 (filename)
(interactive
(list
(read-file-name "rename to: " nil nil t (buffer-file-name))))
(rename-file (buffer-file-name) filename)
(rename-buffer (file-name-nondirectory filename)))