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

Change: (ts) Use ts-in

Browse source
This commit is contained in:
Adam Porter 2019-08-13 21:11:58 -05:00
parent aea37ea1c1
commit ae8b0c740c
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql.el
View file

@ -922,8 +922,7 @@ match inactive ones, or `both' / nil to match both types."
(save-excursion (save-excursion
(let ((end-pos (org-entry-end-position))) (let ((end-pos (org-entry-end-position)))
(cond ((not (or from to)) (re-search-forward regexp end-pos t)) (cond ((not (or from to)) (re-search-forward regexp end-pos t))
((and from to) (test-timestamps (and (ts<= from next-ts) ((and from to) (test-timestamps (ts-in from to next-ts)))
(ts<= next-ts to))))
(from (test-timestamps (ts<= from next-ts))) (from (test-timestamps (ts<= from next-ts)))
(to (test-timestamps (ts<= next-ts to)))))))) (to (test-timestamps (ts<= next-ts to))))))))