mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Bug fix

Browse Source
This commit is contained in:
Carsten Dominik 2009-06-02 16:36:16 +02:00
parent b95c2a5e9a
commit 8a2247454c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org-clock.el
View File

@ -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")