branch: elpa/gnosis
commit cc881fe99fae7936368a8d894e8dadc20ee4a2c5
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
completing-read: Add arg for require-match.
---
gnosis.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index d17329da059..0cf5dd14ada 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -298,14 +298,14 @@ When VERIFICATION is non-nil, skip `y-or-n-p' prompt."
(cl-rotatef (nth (1- i) seq) (nth j seq))) ; Swap elements.
finally return seq))
-(defun gnosis-completing-read (prompt seq)
+(defun gnosis-completing-read (prompt seq &optional require-match)
"Call `gnosis-completing-read-function' with shuffled SEQ.
PROMPT: Prompt for `gnosis-completing-read-function'
History is disabled."
(let ((history-add-new-input nil))
(funcall gnosis-completing-read-function prompt
- (gnosis-shuffle (copy-sequence seq)))))
+ (gnosis-shuffle (copy-sequence seq)) nil require-match)))
(defun gnosis-insert-separator ()
"Insert a dashed line spanning the entire width of the buffer."
