diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-22 15:53:14 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-22 15:53:14 +0100 |
commit | 1d6d4e99e49bea6ffb73c65e02d9ed266d05eb8b (patch) | |
tree | 01844b7f0ed46afc02021483ddec7b349255a1ab | |
parent | 5e432838fd13348259babf9b6bc8e48b0c8bdcc1 (diff) | |
download | org-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.el | 13 |
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 |