Browse Source

Move org-agenda-todo-yesterday from org.el to org-agenda.el.

Bastien Guerry 13 years ago
parent
commit
71332ac8a6
2 changed files with 8 additions and 8 deletions
  1. 8 0
      lisp/org-agenda.el
  2. 0 8
      lisp/org.el

+ 8 - 0
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

+ 0 - 8
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,