mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-25 16:02:52 +00:00
Set org-clock-clocking-in' to t before
org-clock-out'
This commit is contained in:
parent
0c42220ca0
commit
1405953456
|
@ -1,3 +1,9 @@
|
||||||
|
2010-05-20 Bernt Hansen <bernt@norang.ca>
|
||||||
|
|
||||||
|
* org-clock.el (org-clock-in): Set `org-clock-clocking-in' to
|
||||||
|
t before calling `org-clock-out', so that that function can
|
||||||
|
know its call context.
|
||||||
|
|
||||||
2010-05-20 Russell Adams <RLAdams@AdamsInfoServ.Com>
|
2010-05-20 Russell Adams <RLAdams@AdamsInfoServ.Com>
|
||||||
|
|
||||||
* org.el (org-remove-inline-images): Call `clear-image-cache'.
|
* org.el (org-remove-inline-images): Call `clear-image-cache'.
|
||||||
|
|
|
@ -959,7 +959,8 @@ the clocking selection, associated with the letter `d'."
|
||||||
(move-marker org-clock-interrupted-task
|
(move-marker org-clock-interrupted-task
|
||||||
(marker-position org-clock-marker)
|
(marker-position org-clock-marker)
|
||||||
(org-clocking-buffer))
|
(org-clocking-buffer))
|
||||||
(org-clock-out t))))
|
(let ((org-clock-clocking-in t))
|
||||||
|
(org-clock-out t)))))
|
||||||
|
|
||||||
(when (equal select '(16))
|
(when (equal select '(16))
|
||||||
;; Mark as default clocking task
|
;; Mark as default clocking task
|
||||||
|
|
Loading…
Reference in a new issue