branch: externals/vertico
commit 2cde6fd1e4bbf4ca1c128b0e5488db613e1d30d7
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Simplify
---
minicomp.el | 22 ++++++++++------------
1 file changed, 10 insertions(+), 12 deletions(-)
diff --git a/minicomp.el b/minicomp.el
index 728ac9e..c61d958 100644
--- a/minicomp.el
+++ b/minicomp.el
@@ -423,18 +423,16 @@
(interactive "P")
(unless arg
(minicomp-insert))
- (cond
- ((let ((input (minibuffer-contents-no-properties)))
- (or (memq minibuffer--require-match '(nil confirm-after-completion))
- (equal "" input)
- (test-completion input
- minibuffer-completion-table
- minibuffer-completion-predicate)))
- (exit-minibuffer))
- ((eq minibuffer--require-match 'confirm)
- (when (eq (ignore-errors (read-char "Confirm")) 13)
- (exit-minibuffer)))
- (t (message "Match required"))))
+ (let ((input (minibuffer-contents-no-properties)))
+ (if (or (memq minibuffer--require-match '(nil confirm-after-completion))
+ (equal "" input)
+ (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"))))
(defun minicomp-exit-input ()
"Exit minibuffer with input."
