Change read-this-file to autofill with the current filename.
This commit is contained in:
@ -88,7 +88,9 @@ If PROJECT is not specified, assume current project root."
|
|||||||
;; Renombrar el archivo actual
|
;; Renombrar el archivo actual
|
||||||
(defun rename-this-file (new-name)
|
(defun rename-this-file (new-name)
|
||||||
"Renames both current buffer and file it's visiting to 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))
|
(let ((name (buffer-name))
|
||||||
(filename (buffer-file-name)))
|
(filename (buffer-file-name)))
|
||||||
(unless filename
|
(unless filename
|
||||||
|
Reference in New Issue
Block a user