From da711ebb35e928f13ba83494984be928825eebb6 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Thu, 15 Aug 2019 23:34:23 -0500 Subject: [PATCH] Fix: (org-ql-search) Interactive completion --- org-ql-agenda.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index be44798..972f59e 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -176,10 +176,10 @@ TITLE: An optional string displayed in the header." (read-minibuffer "Query: ") :narrow (eq current-prefix-arg '(4)) :groups (pcase (completing-read "Group by: " - (cons "Don't group" - "Global groups" - (cl-loop for type in org-super-agenda-auto-selector-keywords - collect (substring (symbol-name type) 6)))) + (append (list "Don't group" + "Global groups") + (cl-loop for type in org-super-agenda-auto-selector-keywords + collect (substring (symbol-name type) 6)))) ("Global groups" org-super-agenda-groups) ("Don't group" nil) (property (list (list (intern (concat ":auto-" property))))))