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

Tidy: Use compat and newer symbol names

Browse source
This commit is contained in:
Adam Porter 2023-12-16 05:15:36 -06:00
parent 0ab236f95b
commit c62ff77cd3
3 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -82,7 +82,7 @@ To be used in, e.g. annotation functions.")
(defun org-ql-completing-read-action ()
"Default action for `org-ql-completing-read'.
Returns (STRING . MARKER) cons for entry at point."
(font-lock-ensure (point-at-bol) (point-at-eol))
(font-lock-ensure (pos-bol) (pos-eol))
(cons (org-link-display-format (org-entry-get nil "ITEM")) (point-marker)))
(defun org-ql-completing-read-snippet (marker)
@ -155,7 +155,7 @@ single predicate)."
(cl-labels (;; (debug-message
;; (f &rest args) (apply #'message (concat "ORG-QL-COMPLETING-READ: " f) args))
(action ()
(font-lock-ensure (point-at-bol) (point-at-eol))
(font-lock-ensure (pos-bol) (pos-eol))
;; This function needs to handle multiple candidates per
;; call, so we loop over a list of values by default.
(pcase-dolist (`(,string . ,marker) (funcall action-filter (funcall action)))