emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/transient a3b4422 3/6: transient-read-{, existing-}file


From: Stefan Monnier
Subject: [elpa] externals/transient a3b4422 3/6: transient-read-{, existing-}file: New functions
Date: Tue, 16 Mar 2021 09:42:40 -0400 (EDT)

branch: externals/transient
commit a3b442243b0aaf3afe96abbd4047b2338a8c34cc
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    transient-read-{,existing-}file: New functions
---
 lisp/transient.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lisp/transient.el b/lisp/transient.el
index 6ac494c..0c2d049 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2514,6 +2514,14 @@ stand-alone command."
 
 ;;;; Readers
 
+(defun transient-read-file (prompt _initial-input _history)
+  "Read a file."
+  (file-local-name (expand-file-name (read-file-name prompt))))
+
+(defun transient-read-existing-file (prompt _initial-input _history)
+  "Read an existing file."
+  (file-local-name (expand-file-name (read-file-name prompt nil nil t))))
+
 (defun transient-read-directory (prompt _initial-input _history)
   "Read a directory."
   (file-local-name (expand-file-name (read-directory-name prompt))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]