diff options
| author | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-02 16:36:16 +0200 |
|---|---|---|
| committer | Carsten Dominik <carsten.dominik@gmail.com> | 2009-06-02 16:36:16 +0200 |
| commit | 8a2247454c6464b634138c0fa04d268e1247757b (patch) | |
| tree | 475d546a560bd0d6d08b46ebc29284c53f6c0631 | |
| parent | b95c2a5e9acb6fcb9aee4167cc326d918195465e (diff) | |
| download | org-mode-8a2247454c6464b634138c0fa04d268e1247757b.tar.gz | |
Bug fix
| -rw-r--r-- | lisp/org-clock.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 6fe4e34..6cc148c 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -518,8 +518,14 @@ the clocking selection, associated with the letter `d'." (defvar msg-extra) (defun org-clock-get-sum-start () + "Return the time from which clock times should be counted. +This is for the currently running clock as it is displayed +in the mode line. This function looks at the properties +LAST_REPEAT and in particular CLOCK_MODELINE_TOTAL and the +corresponding variable `org-clock-modeline-total' and then +decides which time to use." (let ((cmt (or (org-entry-get nil "CLOCK_MODELINE_TOTAL") - (symbol-name 'org-clock-modeline-total))) + (symbol-name org-clock-modeline-total))) (lr (org-entry-get nil "LAST_REPEAT"))) (cond ((equal cmt "current") |