jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tidy

Browse source
This commit is contained in:
Adam Porter 2023-09-22 22:58:05 -05:00
parent 9aba73a28b
commit 7ecb4a8b10
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-completing-read.el
View file

@ -153,11 +153,6 @@ single predicate)."
;; (f &rest args) (apply #'message (concat "ORG-QL-COMPLETING-READ: " f) args)) ;; (f &rest args) (apply #'message (concat "ORG-QL-COMPLETING-READ: " f) args))
(action () (action ()
(font-lock-ensure (point-at-bol) (point-at-eol)) (font-lock-ensure (point-at-bol) (point-at-eol))
;; FIXME: We want the fontified string, and `org-heading-components' returns it
;; without properties, so we have to use `org-get-heading', which added additional
;; optional arguments in a certain Org version, so in those versions, it will
;; return priority cookies and comment strings.
;; This function needs to handle multiple candidates per ;; This function needs to handle multiple candidates per
;; call, so we loop over a list of values by default. ;; call, so we loop over a list of values by default.
(pcase-dolist (`(,string . ,marker) (funcall action-filter (funcall action))) (pcase-dolist (`(,string . ,marker) (funcall action-filter (funcall action)))