From 9cccb68eb890c2830ae101cfad98077cfb598a11 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 21 Sep 2009 17:55:48 +0100 Subject: [PATCH] Mark time stamp change with ">" command in agenda --- lisp/ChangeLog | 5 +++++ lisp/org-agenda.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 58ec0ff04..6b773c8d9 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-09-21 Carsten Dominik + + * org-agenda.el (org-agenda-date-prompt): Mark the changed time + stamp in the agenda. + 2009-09-19 Carsten Dominik * org-mobile.el (org-mobile-create-index-file): Add the list of diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index bdaecc770..55262c32d 100644 --- a/lisp/org-agenda.el +++ b/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."