[elpa] externals/vertico 30d8782356 3/3: vertico-directory-enter: Exit with input if prefix argument is given

[ELPA Syncer]

branch: externals/vertico
commit 30d8782356b126719346b6f8d3c5a196db15424a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    vertico-directory-enter: Exit with input if prefix argument is given
---
 CHANGELOG.org                   |  5 +++++
 extensions/vertico-directory.el | 12 +++++++-----
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 2855a00144..cc8db48b6b 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,11 @@
 #+author: Daniel Mendler
 #+language: en
 
+* Development
+
+- =vertico-directory-enter=: Exit with input if prefix argument is given. 
Mirrors
+  the behavior of =vertico-exit=.
+
 * Version 1.4 (2023-07-02)
 
 - =vertico-grid-annotate=: Fix width computation.
diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index 544f76dc21..79f9a75206 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -42,10 +42,12 @@
 (eval-when-compile (require 'subr-x))
 
 ;;;###autoload
-(defun vertico-directory-enter ()
-  "Enter directory or exit completion with current candidate."
-  (interactive)
-  (if-let (((>= vertico--index 0))
+(defun vertico-directory-enter (&optional arg)
+  "Enter directory or exit completion with current candidate.
+Exit with current input if prefix ARG is given."
+  (interactive "P")
+  (if-let (((not arg))
+           ((>= vertico--index 0))
            ((eq 'file (vertico--metadata-get 'category)))
            ;; Check vertico--base for stepwise file path completion
            ((not (equal vertico--base "")))
@@ -62,7 +64,7 @@
           (setq cand (replace-regexp-in-string "/[^/|:]+/\\.\\./\\'" "/" 
cand)))
         (delete-minibuffer-contents)
         (insert cand))
-    (vertico-exit)))
+    (vertico-exit arg)))
 
 ;;;###autoload
 (defun vertico-directory-up (&optional n)