summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFrancesco Pizzolante <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org>2013-01-30 16:21:42 (GMT)
committer Bastien Guerry <bzg@altern.org>2013-01-31 13:17:01 (GMT)
commit9cb3d3e7f8554b54fc4086c168327091be296da9 (patch)
tree3dfd5d1d3f487b02abae80ca7c3280dd0b5e9bd9
parent94d1b1169dc0c25548a8ccb4993ede298d30345c (diff)
downloadorg-mode-9cb3d3e7f8554b54fc4086c168327091be296da9.zip
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.el7
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."