Browse Source

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.
Carsten Dominik 15 years ago
parent
commit
5356227feb
4 changed files with 12 additions and 5 deletions
  1. 5 0
      doc/ChangeLog
  2. 2 3
      doc/org.texi
  3. 3 0
      lisp/ChangeLog
  4. 2 2
      lisp/org-agenda.el

+ 5 - 0
doc/ChangeLog

@@ -1,3 +1,8 @@
+2009-12-14  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.texi (Agenda commands): Document that `>' prompts for a
+	date.
+
 2009-11-30  Tassilo Horn  <tassilo@member.fsf.org>
 
 	* org.texi (Setting tags): Document variable

+ 2 - 3
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

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-12-14  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* 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

+ 2 - 2
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)))