Function: org-current-effective-time

org-current-effective-time is a byte-compiled function defined in org.el.gz.

Signature

(org-current-effective-time)

Documentation

Return current time adjusted for org-extend-today-until variable.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org.el.gz
(defun org-current-effective-time ()
  "Return current time adjusted for `org-extend-today-until' variable."
  (let* ((ct (org-current-time))
	 (dct (decode-time ct))
	 (ct1
	  (cond
	   (org-use-last-clock-out-time-as-effective-time
	    (or (org-clock-get-last-clock-out-time) ct))
	   ((and org-use-effective-time (< (nth 2 dct) org-extend-today-until))
	    (org-encode-time 0 59 23 (1- (nth 3 dct)) (nth 4 dct) (nth 5 dct)))
	   (t ct))))
    ct1))