Rename file and buffer in Emacs
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:
- File and directory completion
- Can move file to other directory
- Handles the case if Emacs is visiting a file and that file is removed
(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)blog comments powered by Disqus Back to Top
