diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-31 14:17:13 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-31 14:17:13 +0100 |
commit | 394398afab047382f529baa94ed264dc3882d54d (patch) | |
tree | 4e659161373298158296a75490b563313f5de7b6 | |
parent | ad9ca25d869f264f87e76932fc717f5e680de9c2 (diff) | |
parent | 9cb3d3e7f8554b54fc4086c168327091be296da9 (diff) | |
download | org-mode-394398afab047382f529baa94ed264dc3882d54d.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org-clock.el | 7 |
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." |