forked from mirrors/org-mode
org-agenda-get-timestamps: Ignore non-timestamps matching re
* lisp/org-agenda.el (org-agenda-get-timestamps): Explicitly confirm that object at point is a timestamp. Fixes https://list.orgmode.org/20220102210433.GC29829@itccanarias.org/T/#m39b80d45d7d6cfc6b713284365c283579ac94cb1
This commit is contained in:
parent
34b0d95327
commit
e8d6db540b
|
@ -86,6 +86,8 @@
|
||||||
(declare-function org-capture "org-capture" (&optional goto keys))
|
(declare-function org-capture "org-capture" (&optional goto keys))
|
||||||
(declare-function org-clock-modify-effort-estimate "org-clock" (&optional value))
|
(declare-function org-clock-modify-effort-estimate "org-clock" (&optional value))
|
||||||
|
|
||||||
|
(declare-function org-element-type "org-element" (&optional element))
|
||||||
|
|
||||||
(defvar calendar-mode-map)
|
(defvar calendar-mode-map)
|
||||||
(defvar org-clock-current-task)
|
(defvar org-clock-current-task)
|
||||||
(defvar org-current-tag-alist)
|
(defvar org-current-tag-alist)
|
||||||
|
@ -5729,7 +5731,8 @@ displayed in agenda view."
|
||||||
(org-at-planning-p)
|
(org-at-planning-p)
|
||||||
(org-before-first-heading-p)
|
(org-before-first-heading-p)
|
||||||
(and org-agenda-include-inactive-timestamps
|
(and org-agenda-include-inactive-timestamps
|
||||||
(org-at-clock-log-p)))
|
(org-at-clock-log-p))
|
||||||
|
(not (eq 'timestamp (org-element-type (org-element-context)))))
|
||||||
(throw :skip nil))
|
(throw :skip nil))
|
||||||
(org-agenda-skip))
|
(org-agenda-skip))
|
||||||
(let* ((pos (match-beginning 0))
|
(let* ((pos (match-beginning 0))
|
||||||
|
|
Loading…
Reference in New Issue