From 08d540fc837e156b21ee35e4eeaea1788ea0b3d0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 1 Jan 2024 13:03:02 +0200 Subject: gnosis-prompt-tag: Add "q" on options Fixing issue when having require-match t, user can't select "q" --- gnosis.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gnosis.el b/gnosis.el index c5d3da7..2d23fd9 100644 --- a/gnosis.el +++ b/gnosis.el @@ -557,7 +557,7 @@ Returns a list of unique tags." (match (or match nil))) (while (not (string= tag "q")) (setf tag (completing-read (concat prompt (format " %s (q for quit): " tags)) - (gnosis-get-tags--unique) nil match)) + (cons "q" (gnosis-get-tags--unique)) nil match)) (unless (or (string= tag "q") (member tag tags)) (push tag tags))) (reverse tags))) -- cgit v1.2.3