[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.