[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 6307a774a7 1/3: org-agenda-get-scheduled: Fix call
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 6307a774a7 1/3: org-agenda-get-scheduled: Fix call to `org-time-string-to-time' |
Date: |
Tue, 19 Sep 2023 06:58:13 -0400 (EDT) |
branch: externals/org
commit 6307a774a7e9e7e21ed22facdce008ba2fc98775
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
org-agenda-get-scheduled: Fix call to `org-time-string-to-time'
* lisp/org-agenda.el (org-agenda-get-scheduled): Do not pass timestamp
object to `org-time-string-to-time'. Convert it to string first.
Reported-by: Carlo Tambuatco <oraclmaster@gmail.com>
Link:
https://orgmode.org/list/CAJb92EzRWO6v3MRVbU0XwQomx-A1eYvFaOaBsJemB85Y4nJ1eg@mail.gmail.com
---
lisp/org-agenda.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 0f61d75bba..d7fdd368e9 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6668,7 +6668,8 @@ scheduled items with an hour specification like [h]h:mm."
(let ((deadline (time-to-days
(when (org-element-property :deadline
el)
(org-time-string-to-time
- (org-element-property :deadline
el))))))
+ (org-element-interpret-data
+ (org-element-property :deadline
el)))))))
(and (<= schedule deadline) (> current deadline))))
(`not-today pastschedp)
(`t t)