summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-31 14:17:13 +0100
committerBastien Guerry <bzg@altern.org>2013-01-31 14:17:13 +0100
commit394398afab047382f529baa94ed264dc3882d54d (patch)
tree4e659161373298158296a75490b563313f5de7b6
parentad9ca25d869f264f87e76932fc717f5e680de9c2 (diff)
parent9cb3d3e7f8554b54fc4086c168327091be296da9 (diff)
downloadorg-mode-394398afab047382f529baa94ed264dc3882d54d.tar.gz
Merge branch 'maint'
-rw-r--r--lisp/org-clock.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 7079a41..afa88ba 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1718,8 +1718,8 @@ each headline in the time range with point at the headline. Headlines for
which HEADLINE-FILTER returns nil are excluded from the clock summation.
PROPNAME lets you set a custom text property instead of :org-clock-minutes."
(interactive)
- (let* ((bmp (buffer-modified-p))
- (re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*"
+ (org-unmodified
+ (let* ((re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*"
org-clock-string
"[ \t]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\)"))
(lmax 30)
@@ -1796,8 +1796,7 @@ PROPNAME lets you set a custom text property instead of :org-clock-minutes."
(setq t1 0)
(loop for l from level to (1- lmax) do
(aset ltimes l 0)))))))
- (setq org-clock-file-total-minutes (aref ltimes 0)))
- (set-buffer-modified-p bmp)))
+ (setq org-clock-file-total-minutes (aref ltimes 0))))))
(defun org-clock-sum-current-item (&optional tstart)
"Return time, clocked on current item in total."