tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org-agenda.el: Let-bind `org-time-clocksum-use-effort-durations' when checking clocks and formatting items

Browse source 
* org-agenda.el (org-agenda-show-clocking-issues)
(org-agenda-format-item): Let-bind
`org-time-clocksum-use-effort-durations' to nil.

Thanks to Vincent Beffara for reporting this.
This commit is contained in:
Bastien Guerry 2013-01-22 15:53:14 +01:00
parent 5e432838fd
commit 1d6d4e99e4
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/org-agenda.el
View file

@ -5828,7 +5828,8 @@ please use `org-class' instead."
"Add overlays, showing issues with clocking.
See also the user option `org-agenda-clock-consistency-checks'."
(interactive)
(let* ((pl org-agenda-clock-consistency-checks)
(let* ((org-time-clocksum-use-effort-durations nil)
(pl org-agenda-clock-consistency-checks)
(re (concat "^[ \t]*"
org-clock-string
"[ \t]+"
@ -6399,10 +6400,12 @@ Any match of REMOVE-RE will be removed from TXT."
(if s2 (setq s2 (org-get-time-of-day s2 'string t)))
;; Try to set s2 if s1 and `org-agenda-default-appointment-duration' are set
(when (and s1 (not s2) org-agenda-default-appointment-duration)
(setq s2
(org-minutes-to-clocksum-string
(+ (org-hh:mm-string-to-minutes s1) org-agenda-default-appointment-duration))))
(let (org-time-clocksum-use-effort-durations)
(when (and s1 (not s2) org-agenda-default-appointment-duration)
(setq s2
(org-minutes-to-clocksum-string
(+ (org-hh:mm-string-to-minutes s1)
org-agenda-default-appointment-duration)))))
;; Compute the duration
(when s2