Fix: (org-ql-select) Remove extra quote

Oops.
This commit is contained in:
Adam Porter 2019-09-09 20:39:59 -05:00
parent 6a93e887cc
commit d336554e9c

View file

@ -227,7 +227,7 @@ returns nil or non-nil."
(`nil items) (`nil items)
((or 'date 'deadline 'scheduled 'todo 'priority 'random ((or 'date 'deadline 'scheduled 'todo 'priority 'random
(guard (cl-loop for elem in sort (guard (cl-loop for elem in sort
always (memq elem '(date deadline scheduled todo priority 'random))))) always (memq elem '(date deadline scheduled todo priority random)))))
;; Default sorting functions ;; Default sorting functions
(org-ql--sort-by items (-list sort))) (org-ql--sort-by items (-list sort)))
;; Sort by user-given comparator. ;; Sort by user-given comparator.