summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-08-15 09:39:52 +0200
committerBastien Guerry <bzg@altern.org>2011-08-15 09:39:52 +0200
commit71332ac8a6a8143549a87092e8da8bd73a0b334e (patch)
tree0f27a1cfc2cab836ea7035470239265a32da6e4c
parent258aad0b9a428cec9195b22063e42df77dee19c2 (diff)
downloadorg-mode-71332ac8a6a8143549a87092e8da8bd73a0b334e.tar.gz
Move org-agenda-todo-yesterday from org.el to org-agenda.el.
-rw-r--r--lisp/org-agenda.el8
-rw-r--r--lisp/org.el8
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,