Simplify prelude-rename-file-and-buffer

This commit is contained in:
Bozhidar Batsov 2013-05-09 18:55:26 +03:00
parent a569d45a78
commit 9792ca0a63

View file

@ -195,9 +195,7 @@ there's a region, all lines that region covers will be duplicated."
((vc-backend filename) (vc-rename-file filename new-name))
(t
(rename-file filename new-name t)
(rename-buffer new-name)
(set-visited-file-name new-name)
(set-buffer-modified-p nil)))))))
(set-visited-file-name new-name t t)))))))
(defun prelude-delete-file-and-buffer ()
"Kill the current buffer and deletes the file it is visiting."