summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-22 15:53:14 +0100
committerBastien Guerry <bzg@altern.org>2013-01-22 15:53:14 +0100
commit1d6d4e99e49bea6ffb73c65e02d9ed266d05eb8b (patch)
tree01844b7f0ed46afc02021483ddec7b349255a1ab
parent5e432838fd13348259babf9b6bc8e48b0c8bdcc1 (diff)
downloadorg-mode-1d6d4e99e49bea6ffb73c65e02d9ed266d05eb8b.tar.gz
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.
-rw-r--r--lisp/org-agenda.el13
1 files changed, 8 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8b9ae81..ad114ae 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