forked from mirrors/org-mode
org-agenda-get-sexps: Query headline at point once in skip function
* lisp/org-agenda.el (org-agenda-get-sexps): Provide headline at point for `org-agenda-skip'.
This commit is contained in:
parent
1de67d0b41
commit
8cc821bda2
|
@ -5908,7 +5908,7 @@ displayed in agenda view."
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(while (re-search-forward regexp nil t)
|
(while (re-search-forward regexp nil t)
|
||||||
(catch :skip
|
(catch :skip
|
||||||
(org-agenda-skip)
|
(org-agenda-skip (org-element-lineage (org-element-at-point) '(headline inlinetask) 'with-self))
|
||||||
(setq beg (match-beginning 0))
|
(setq beg (match-beginning 0))
|
||||||
(goto-char (1- (match-end 0)))
|
(goto-char (1- (match-end 0)))
|
||||||
(setq b (point))
|
(setq b (point))
|
||||||
|
|
Loading…
Reference in a new issue