From 5356227febca396bee7546813457d03ab3bfeb14 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Mon, 14 Dec 2009 17:06:04 +0100 Subject: [PATCH] Agenda: Make `>' also act inactive time stamps When an entry was included into the agenda because of an inactive time stamp, `>' can now be used to change that inactive stamp. --- doc/ChangeLog | 5 +++++ doc/org.texi | 5 ++--- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 4 ++-- 4 files changed, 12 insertions(+), 5 deletions(-) diff --git a/doc/ChangeLog b/doc/ChangeLog index 946214595..a715dfd6c 100644 --- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,3 +1,8 @@ +2009-12-14 Carsten Dominik + + * org.texi (Agenda commands): Document that `>' prompts for a + date. + 2009-11-30 Tassilo Horn * org.texi (Setting tags): Document variable diff --git a/doc/org.texi b/doc/org.texi index 783c0312d..31c34ba69 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -7598,9 +7598,8 @@ into the past. @c @kindex > @item > -Change the timestamp associated with the current line to today. -The key @kbd{>} has been chosen, because it is the same as @kbd{S-.} -on my keyboard. +Change the timestamp associated with the current line. The key @kbd{>} has +been chosen, because it is the same as @kbd{S-.} on my keyboard. @c @kindex I @item I diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 97ffb3003..43292d708 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-12-14 Carsten Dominik + * org-agenda.el (org-agenda-date-prompt): Allow inactive time + stamps as well. + * org.el (org-inhibit-startup-visibility-stuff): New variable. (org-mode): Don't do startup visibility if inhibited. (org-outline-overlay-data, org-set-outline-overlay-data): New diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 36baefd08..606499e6f 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6536,9 +6536,9 @@ be used to request time specification in the time stamp." (with-current-buffer buffer (widen) (goto-char pos) - (if (not (org-at-timestamp-p)) + (if (not (org-at-timestamp-p t)) (error "Cannot find time stamp")) - (org-time-stamp arg)) + (org-time-stamp arg (equal (char-after (match-beginning 0)) ?\[))) (org-agenda-show-new-time marker org-last-changed-timestamp)) (message "Time stamp changed to %s" org-last-changed-timestamp)))