diff options
author | Francesco Pizzolante <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org> | 2013-01-30 17:21:42 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-31 14:17:01 +0100 |
commit | 9cb3d3e7f8554b54fc4086c168327091be296da9 (patch) | |
tree | 3dfd5d1d3f487b02abae80ca7c3280dd0b5e9bd9 | |
parent | 94d1b1169dc0c25548a8ccb4993ede298d30345c (diff) | |
download | org-mode-9cb3d3e7f8554b54fc4086c168327091be296da9.tar.gz |
org-clock.el (org-clock-sum): Protect with `org-unmodified'
* org-clock.el (org-clock-sum): Protect with `org-unmodified'.
TINYCHANGE
-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 7bd5b5a..945fcd0 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1675,8 +1675,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) @@ -1753,8 +1753,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." |