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'.
emacs-straight · Sep 16, 2022 · 8cc821b · 8cc821b
1 parent 1de67d0
commit 8cc821b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
@@ -5908,7 +5908,7 @@ displayed in agenda view."
     (goto-char (point-min))
     (while (re-search-forward regexp nil t)
       (catch :skip
-	(org-agenda-skip)
+	(org-agenda-skip (org-element-lineage (org-element-at-point) '(headline inlinetask) 'with-self))
 	(setq beg (match-beginning 0))
 	(goto-char (1- (match-end 0)))
 	(setq b (point))