diff options
author | Kyle Meyer <kyle@kyleam.com> | 2014-12-07 19:21:42 -0500 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2014-12-09 10:25:24 +0100 |
commit | 5d25e6e68ec3ce8d5f9980f038c57f6de285822f (patch) | |
tree | d63e8aaaa63abeda2d3aa271a90fd43c0e233c11 | |
parent | 173b0cb6d6d83987d094f1a0dead86e43467bd83 (diff) | |
download | org-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.el | 3 | ||||
-rwxr-xr-x | lisp/org.el | 3 |
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)))) |