ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-clock.el (org-clock-sum): Protect with `org-unmodified' 

* org-clock.el (org-clock-sum): Protect with `org-unmodified'.

TINYCHANGE
This commit is contained in:
Francesco Pizzolante 2013-01-30 17:21:42 +01:00 committed by Bastien Guerry
parent 94d1b1169d
commit 9cb3d3e7f8
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-clock.el
View File

@ -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. which HEADLINE-FILTER returns nil are excluded from the clock summation.
PROPNAME lets you set a custom text property instead of :org-clock-minutes." PROPNAME lets you set a custom text property instead of :org-clock-minutes."
(interactive) (interactive)
(let* ((bmp (buffer-modified-p)) (org-unmodified
(re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*" (let* ((re (concat "^\\(\\*+\\)[ \t]\\|^[ \t]*"
org-clock-string org-clock-string
"[ \t]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\)")) "[ \t]*\\(?:\\(\\[.*?\\]\\)-+\\(\\[.*?\\]\\)\\|=>[ \t]+\\([0-9]+\\):\\([0-9]+\\)\\)"))
(lmax 30) (lmax 30)
@ -1753,8 +1753,7 @@ PROPNAME lets you set a custom text property instead of :org-clock-minutes."
(setq t1 0) (setq t1 0)
(loop for l from level to (1- lmax) do (loop for l from level to (1- lmax) do
(aset ltimes l 0))))))) (aset ltimes l 0)))))))
(setq org-clock-file-total-minutes (aref ltimes 0))) (setq org-clock-file-total-minutes (aref ltimes 0))))))
(set-buffer-modified-p bmp)))
(defun org-clock-sum-current-item (&optional tstart) (defun org-clock-sum-current-item (&optional tstart)
"Return time, clocked on current item in total." "Return time, clocked on current item in total."