From b7168fd349b7d2507e1409a24bc1d617b64ee6f2 Mon Sep 17 00:00:00 2001 From: kj Date: Fri, 29 Aug 2025 18:06:53 -0300 Subject: [PATCH] Change read-this-file to autofill with the current filename. --- configs/init-functions.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/configs/init-functions.el b/configs/init-functions.el index 2249a77..ce398f0 100644 --- a/configs/init-functions.el +++ b/configs/init-functions.el @@ -88,7 +88,9 @@ If PROJECT is not specified, assume current project root." ;; Renombrar el archivo actual (defun rename-this-file (new-name) "Renames both current buffer and file it's visiting to NEW-NAME." - (interactive "sNew name: ") + (interactive (list (read-string "New name: " + (file-name-nondirectory + (buffer-file-name))))) (let ((name (buffer-name)) (filename (buffer-file-name))) (unless filename