emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 07:46:51 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

* lisp/files.el (make-empty-file): Simplify interactive spec

Browse source
This commit is contained in:
Philipp Stephani 2026-09-01 19:08:58 +02:00
parent a1bb496e24
commit e0a5fcbac6
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/files.el
View file

@ -6757,9 +6757,7 @@ Signal an error if unsuccessful."
Optional arg PARENTS, if non-nil then creates parent dirs as needed.
If called interactively, then PARENTS is non-nil."
(interactive
(let ((filename (read-file-name "Create empty file: ")))
(list filename t)))
(interactive "FCreate empty file: \np")
(when parents
(when-let* ((paren-dir (file-name-directory filename)))
(make-directory paren-dir :parents)))