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

Fix: (link) Save excursion around regexp search

Browse source 
Fixes #279.  Thanks to Marc Fargas (@telenieko) for reporting.

Released as 0.6.2.
This commit is contained in:
Adam Porter 2022-05-27 02:01:00 -05:00
parent f666fe150f
commit 115500c8a0
3 changed files with 272 additions and 252 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql.el
View file

@ -2,7 +2,7 @@
;; Author: Adam Porter <adam@alphapapa.net>
;; Url: https://github.com/alphapapa/org-ql
;; Version: 0.6.1
;; Version: 0.6.2
;; Package-Requires: ((emacs "26.1") (dash "2.18.1") (f "0.17.2") (map "2.1") (org "9.0") (org-super-agenda "1.2") (ov "1.0.6") (peg "1.0") (s "1.12.0") (transient "0.1") (ts "0.2-pre"))
;; Keywords: hypermedia, outlines, Org, agenda
@ -1461,7 +1461,8 @@ any link is found."
(setf description (regexp-quote description)))
(when target
(setf target (regexp-quote target))))
(when (re-search-forward org-ql-link-regexp (org-entry-end-position) t)
(when (save-excursion
(re-search-forward org-ql-link-regexp (org-entry-end-position) t))
(pcase description-or-target
('nil (and (or (null target)
(string-match-p target (match-string 1)))