From bf20251e933517360f5a337ce0f14e6007070770 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Fri, 6 Sep 2019 05:26:18 -0500 Subject: [PATCH] Fix: (org-ql-search) Group completion when osa not installed --- org-ql-agenda.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/org-ql-agenda.el b/org-ql-agenda.el index 1ed586a..33d3087 100644 --- a/org-ql-agenda.el +++ b/org-ql-agenda.el @@ -228,8 +228,9 @@ TITLE: An optional string displayed in the header." :groups (pcase (completing-read "Group by: " (append (list "Don't group" "Global groups") - (cl-loop for type in org-super-agenda-auto-selector-keywords - collect (substring (symbol-name type) 6)))) + (when (bound-and-true-p org-super-agenda-auto-selector-keywords) + (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))))))