From cd447fa11d2bb76982d42427b1ef7344e7f81d6c Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 11 Dec 2011 17:52:10 +0100 Subject: [PATCH] Make `org-todo-yesterday' call `org-agenda-todo-yesterday' if necessary. * org.el (org-todo-yesterday): When called from the agenda, use `org-agenda-todo-yesterday' instead. --- lisp/org.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 01e8cd6b2..a505b3421 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11143,12 +11143,14 @@ nil or a string to be used for the todo mark." ) ct1)) (defun org-todo-yesterday (&optional arg) - "Like `org-todo' but the time of change will be 23:59 of yesterday" + "Like `org-todo' but the time of change will be 23:59 of yesterday." (interactive "P") - (let* ((hour (third (decode-time - (org-current-time)))) - (org-extend-today-until (1+ hour))) - (org-todo arg))) + (if (eq major-mode 'org-agenda-mode) + (apply 'org-agenda-todo-yesterday arg) + (let* ((hour (third (decode-time + (org-current-time)))) + (org-extend-today-until (1+ hour))) + (org-todo arg)))) (defun org-todo (&optional arg) "Change the TODO state of an item. -- 2.11.4.GIT