diff options
author | Bastien Guerry <bzg@altern.org> | 2011-08-15 09:39:52 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-08-15 09:39:52 +0200 |
commit | 71332ac8a6a8143549a87092e8da8bd73a0b334e (patch) | |
tree | 0f27a1cfc2cab836ea7035470239265a32da6e4c | |
parent | 258aad0b9a428cec9195b22063e42df77dee19c2 (diff) | |
download | org-mode-71332ac8a6a8143549a87092e8da8bd73a0b334e.tar.gz |
Move org-agenda-todo-yesterday from org.el to org-agenda.el.
-rw-r--r-- | lisp/org-agenda.el | 8 | ||||
-rw-r--r-- | lisp/org.el | 8 |
2 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index c27969c..9b55ad7 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8456,6 +8456,14 @@ belonging to the \"Work\" category." date))) (eq date today))) +(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 + (org-current-time)))) + (org-extend-today-until (1+ hour))) + (org-agenda-todo arg))) + (provide 'org-agenda) ;; arch-tag: 77f7565d-7c4b-44af-a2df-9f6f7070cff1 diff --git a/lisp/org.el b/lisp/org.el index e407e81..aa17344 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10951,14 +10951,6 @@ nil or a string to be used for the todo mark." ) (org-extend-today-until (1+ hour))) (org-todo arg))) -(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 - (org-current-time)))) - (org-extend-today-until (1+ hour))) - (org-agenda-todo arg))) - (defun org-todo (&optional arg) "Change the TODO state of an item. The state of an item is given by a keyword at the start of the heading, |