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

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

[elpa] externals/vertico 7c211b4 1/3: Bugfix: When require-match=confirm


From: ELPA Syncer
Subject: [elpa] externals/vertico 7c211b4 1/3: Bugfix: When require-match=confirm, do not print "Match required" if confirmation is denied
Date: Tue, 6 Jul 2021 13:57:17 -0400 (EDT)

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

    Bugfix: When require-match=confirm, do not print "Match required" if 
confirmation is denied
---
 vertico.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/vertico.el b/vertico.el
index 584c7b4..f4327c2 100644
--- a/vertico.el
+++ b/vertico.el
@@ -604,15 +604,15 @@ See `resize-mini-windows' for documentation."
   (interactive "P")
   (unless arg (vertico-insert))
   (let ((input (minibuffer-contents-no-properties)))
-    (if (or (memq minibuffer--require-match '(nil confirm-after-completion))
-            (equal "" input) ;; The questionable null completion
-            (test-completion input
-                             minibuffer-completion-table
-                             minibuffer-completion-predicate)
-            (and (eq minibuffer--require-match 'confirm)
-                 (eq (ignore-errors (read-char "Confirm")) 13)))
-        (exit-minibuffer)
-      (message "Match required"))))
+    (when (or (memq minibuffer--require-match '(nil confirm-after-completion))
+              (equal "" input) ;; The questionable null completion
+              (test-completion input
+                               minibuffer-completion-table
+                               minibuffer-completion-predicate)
+              (if (eq minibuffer--require-match 'confirm)
+                  (eq (ignore-errors (read-char "Confirm")) 13)
+                (and (message "Match required") nil)))
+      (exit-minibuffer))))
 
 (defun vertico-next-group (&optional n)
   "Cycle N groups forward.



reply via email to

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