Use rename-visited-file instead of rename-this-file-and-buffer when a…

…vailable
purcell · Aug 26, 2023 · 9eacae9 · 9eacae9
1 parent ef94ad7
commit 9eacae9
Showing 1 changed file with 14 additions and 12 deletions.
diff --git a/lisp/init-utils.el b/lisp/init-utils.el
@@ -51,18 +51,20 @@
 
 ;; Rename the current file
 
-(defun rename-this-file-and-buffer (new-name)
-  "Renames both current buffer and file it's visiting to NEW-NAME."
-  (interactive "sNew name: ")
-  (let ((name (buffer-name))
-        (filename (buffer-file-name)))
-    (unless filename
-      (error "Buffer '%s' is not visiting a file!" name))
-    (progn
-      (when (file-exists-p filename)
-        (rename-file filename new-name 1))
-      (set-visited-file-name new-name)
-      (rename-buffer new-name))))
+(if (fboundp 'rename-visited-file)
+    (defalias 'rename-this-file-and-buffer 'rename-visited-file)
+  (defun rename-this-file-and-buffer (new-name)
+    "Renames both current buffer and file it's visiting to NEW-NAME."
+    (interactive "sNew name: ")
+    (let ((name (buffer-name))
+          (filename (buffer-file-name)))
+      (unless filename
+        (error "Buffer '%s' is not visiting a file!" name))
+      (progn
+        (when (file-exists-p filename)
+          (rename-file filename new-name 1))
+        (set-visited-file-name new-name)
+        (rename-buffer new-name)))))
 
 
 ;; Browse current HTML file