org-agenda: Skip SCHEDULED and DEADLINE false positives
* lisp/org-agenda.el (org-agenda-get-deadlines): (org-agenda-get-scheduled): Check point is really on a planning line before proceeding.
This commit is contained in:
parent
59761024b1
commit
005aa06ed5
|
@ -6055,6 +6055,7 @@ specification like [h]h:mm."
|
|||
(goto-char (point-min))
|
||||
(while (re-search-forward regexp nil t)
|
||||
(catch :skip
|
||||
(unless (org-at-planning-p) (throw :skip nil))
|
||||
(org-agenda-skip)
|
||||
(setq s (match-string 1)
|
||||
txt nil
|
||||
|
@ -6200,6 +6201,7 @@ an hour specification like [h]h:mm."
|
|||
(goto-char (point-min))
|
||||
(while (re-search-forward regexp nil t)
|
||||
(catch :skip
|
||||
(unless (org-at-planning-p) (throw :skip nil))
|
||||
(org-agenda-skip)
|
||||
(setq s (match-string 1)
|
||||
txt nil
|
||||
|
|
Loading…
Reference in New Issue