tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda.el (org-agenda-get-timestamps): Use nil as `ts-date' for diary sexpressions

Browse source 
* org-agenda.el (org-agenda-get-todos)
(org-agenda-get-timestamps): Use nil as `ts-date' for diary
sexpressions.
This commit is contained in:
Bastien Guerry 2013-02-07 19:40:39 +01:00
parent 25a481d8ae
commit 05acaa9de4
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-agenda.el
View file

@ -5485,9 +5485,7 @@ the documentation of `org-diary'."
(org-entry-get (point) "TIMESTAMP_IA"))
ts-date-type ""))
(t (setq ts-date-type "")))
(when ts (or (ignore-errors (org-time-string-to-absolute ts))
;; We skip diary sexp because `date' is not bound
(time-to-days nil)))))
(when ts (ignore-errors (org-time-string-to-absolute ts)))))
category-pos (get-text-property (point) 'org-category-position)
txt (org-trim
(buffer-substring (match-beginning 2) (match-end 0)))
@ -5705,7 +5703,8 @@ Do we have a reason to ignore this TODO entry because it has a time stamp?
'org-marker marker 'org-hd-marker hdmarker
'org-category category 'date date
'level level
'ts-date (org-time-string-to-absolute timestr)
'ts-date
(ignore-errors (org-time-string-to-absolute timestr))
'org-category-position category-pos
'todo-state todo-state
'warntime warntime