Browse Source

Agenda: Fix bug with time of day for clocking lines

Peter Frings writes:

> Good day, org-ers
>
> I have seen a *small* problem in the Agenda's log mode.
>
> Org-mode version 6.26d
> GNU Emacs 22.3.1 (i386-apple-darwin9.5.0, Carbon Version 1.6.0) of 2008-11-01
>
>
> I have this in time-sheets.org:
>
>
> * Project AI
> ** Enhancement PT <2009-04-30 Thu 10:00-11:00 +1w>
>    CLOCK: [2009-05-14 Thu 09:55]--[2009-05-14 Thu 10:45] =>  0:50
>
>
> But, the Agenda shows this:
>
> Day-agenda (W20):
> Thursday   14 May 2009
>                9:00...... ----------------
>   planning:    9:12- 9:55 Clocked:   (0:43) BUSY Notifications
>   time-sheet: 10:00-11:00 Clocked:   (0:50) Enhancement PT
>   time-sheet: 10:00-11:00 Enhancement PT
>               10:00...... ----------------
>               11:00...... ----------------
>

He is right.  Progress lines should never take their
time from the headline, always only from the triggering line.
Carsten Dominik 16 years ago
parent
commit
0962662663
2 changed files with 4 additions and 0 deletions
  1. 3 0
      lisp/ChangeLog
  2. 1 0
      lisp/org-agenda.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-05-14  Carsten Dominik  <carsten.dominik@gmail.com>
 2009-05-14  Carsten Dominik  <carsten.dominik@gmail.com>
 
 
+	* org-agenda.el (org-agenda-get-progress): Never take time of day
+	from headline when displaying progress.
+
 	* org-latex.el (org-export-latex-complex-heading-re): New variable.
 	* org-latex.el (org-export-latex-complex-heading-re): New variable.
 	(org-export-as-latex): Force the correct regexp in the
 	(org-export-as-latex): Force the correct regexp in the
 	preprocessor buffer.
 	preprocessor buffer.

+ 1 - 0
lisp/org-agenda.el

@@ -3827,6 +3827,7 @@ the documentation of `org-diary'."
 		     (apply 'encode-time  ; DATE bound by calendar
 		     (apply 'encode-time  ; DATE bound by calendar
 			    (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
 			    (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
 		    1 11))))
 		    1 11))))
+	 (org-agenda-search-headline-for-time nil)
 	 marker hdmarker priority category tags closedp statep clockp state
 	 marker hdmarker priority category tags closedp statep clockp state
 	 ee txt extra timestr rest clocked)
 	 ee txt extra timestr rest clocked)
     (goto-char (point-min))
     (goto-char (point-min))