In the past, when I was in a file that I wanted to rename, I either opened up a console or dired to rename it. I never thought about creating a function to make it simpler. But then I came across Steve Yegge’s Emacs conf and found a function that did just that.
The function below is based on the one in Steve Yegge’s Emacs conf. But there are a few improvements to it:
(defun rename-this-buffer-and-file () "Renames current buffer and file it is visiting." (interactive) (let ((name (buffer-name)) (filename (buffer-file-name))) (if (not (and filename (file-exists-p filename))) (error "Buffer '%s' is not visiting a file!" name) (let ((new-name (read-file-name "New name: " filename))) (cond ((get-buffer new-name) (error "A buffer named '%s' already exists!" new-name)) (t (rename-file filename new-name 1) (rename-buffer new-name) (set-visited-file-name new-name) (set-buffer-modified-p nil) (message "File '%s' successfully renamed to '%s'" name (file-name-nondirectory new-name))))))))
I bound C-c r to the function:
(global-set-key (kbd "C-c r") 'rename-this-buffer-and-file)