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:
Nicolas Goaziou 2015-10-17 15:49:45 +02:00
parent 59761024b1
commit 005aa06ed5
1 changed files with 2 additions and 0 deletions

View File

@ -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