From 1d6d4e99e49bea6ffb73c65e02d9ed266d05eb8b Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 22 Jan 2013 15:53:14 +0100 Subject: [PATCH] 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. --- lisp/org-agenda.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) 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 -- 2.11.4.GIT