summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-12-07 19:21:42 -0500
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2014-12-09 10:25:24 +0100
commit5d25e6e68ec3ce8d5f9980f038c57f6de285822f (patch)
treed63e8aaaa63abeda2d3aa271a90fd43c0e233c11
parent173b0cb6d6d83987d094f1a0dead86e43467bd83 (diff)
downloadorg-mode-5d25e6e68ec3ce8d5f9980f038c57f6de285822f.tar.gz
org-todo-yesterday: Ignore `org-use-effective-time'
* lisp/org.el (org-todo-yesterday): * lisp/org-agenda.el (org-agenda-todo-yesterday): Ignore global `org-use-effective-time' value. Otherwise, if `org-use-effective-time' being nil, `org-extend-today-until' will not be considered, resulting in the current time being used instead of 23:59 yesterday. Reported-by: Nikolay Kudryavtsev <nikolay.kudryavtsev@gmail.com> <http://permalink.gmane.org/gmane.emacs.orgmode/93224>
-rw-r--r--lisp/org-agenda.el3
-rwxr-xr-xlisp/org.el3
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index b2e54e6..5990bbb 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10143,7 +10143,8 @@ to override `appt-message-warning-time'."
(defun org-agenda-todo-yesterday (&optional arg)
"Like `org-agenda-todo' but the time of change will be 23:59 of yesterday."
(interactive "P")
- (let* ((hour (third (decode-time
+ (let* ((org-use-effective-time t)
+ (hour (third (decode-time
(org-current-time))))
(org-extend-today-until (1+ hour)))
(org-agenda-todo arg)))
diff --git a/lisp/org.el b/lisp/org.el
index 1244160..bed5cb9 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -12469,7 +12469,8 @@ nil or a string to be used for the todo mark." )
(interactive "P")
(if (eq major-mode 'org-agenda-mode)
(apply 'org-agenda-todo-yesterday arg)
- (let* ((hour (third (decode-time
+ (let* ((org-use-effective-time t)
+ (hour (third (decode-time
(org-current-time))))
(org-extend-today-until (1+ hour)))
(org-todo arg))))