rename-file-visited-by-this-buffer.el

(defun krb-rename-file-visited-by-this-buffer (new-name)
  (interactive (list (read-string (format "Rename [%s] to: " buffer-file-name))))
  (let ((file-name buffer-file-name))
    (if (not (string-match "/" new-name))
        (setq new-name (format "%s%s" (file-name-directory file-name)
                               new-name)))
    (message "rename-file: %s to %s" file-name new-name)
    (rename-file file-name new-name)
    (kill-buffer (buffer-name))
    (find-file new-name)))