Function: org-with-clock

org-with-clock is a macro defined in org-clock.el.gz.

Signature

(org-with-clock CLOCK &rest FORMS)

Documentation

Evaluate FORMS with CLOCK as the current active clock.

This macro also protects the current active clock from being altered.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-clock.el.gz
(defmacro org-with-clock (clock &rest forms)
  "Evaluate FORMS with CLOCK as the current active clock.
This macro also protects the current active clock from being altered."
  (declare (indent 1) (debug t))
  `(org-with-clock-position ,clock
     (let ((org-clock-start-time (cdr ,clock))
	   (org-clock-total-time)
	   (org-clock-history)
	   (org-clock-effort)
	   (org-clock-marker (car ,clock))
	   (org-clock-hd-marker (save-excursion
				  (org-back-to-heading t)
				  (point-marker))))
       ,@forms)))