From: Bastien Guerry <bzg@altern.org>
Date: Tue, 22 Jan 2013 14:53:14 +0000 (+0100)
Subject: org-agenda.el: Let-bind `org-time-clocksum-use-effort-durations' when checking clocks... 
X-Git-Tag: release_8.0-pre~522
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/1d6d4e99e49bea6ffb73c65e02d9ed266d05eb8b

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

* 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.
---

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8b9ae8191..ad114aece 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -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