Browse Source

Mark time stamp change with ">" command in agenda

Carsten Dominik 15 years ago
parent
commit
9cccb68eb8
2 changed files with 8 additions and 2 deletions
  1. 5 0
      lisp/ChangeLog
  2. 3 2
      lisp/org-agenda.el

+ 5 - 0
lisp/ChangeLog

@@ -1,3 +1,8 @@
+2009-09-21  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-agenda.el (org-agenda-date-prompt): Mark the changed time
+	stamp in the agenda.
+
 2009-09-19  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-mobile.el (org-mobile-create-index-file): Add the list of

+ 3 - 2
lisp/org-agenda.el

@@ -6369,8 +6369,9 @@ be used to request time specification in the time stamp."
 	(goto-char pos)
 	(if (not (org-at-timestamp-p))
 	    (error "Cannot find time stamp"))
-	(org-time-stamp arg)
-	(message "Time stamp changed to %s" org-last-changed-timestamp)))))
+	(org-time-stamp arg))
+      (org-agenda-show-new-time marker org-last-changed-timestamp))
+    (message "Time stamp changed to %s" org-last-changed-timestamp)))
 
 (defun org-agenda-schedule (arg)
   "Schedule the item at point."