Function: timeclock-when-to-leave

timeclock-when-to-leave is a byte-compiled function defined in timeclock.el.gz.

Signature

(timeclock-when-to-leave &optional TODAY-ONLY)

Documentation

Return a time value representing the end of today's workday.

If TODAY-ONLY is non-nil, the value returned will be relative only to the time worked today, and not to past time.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/timeclock.el.gz
;; Should today-only be removed in favor of timeclock-relative? - gm
(defsubst timeclock-when-to-leave (&optional today-only)
  "Return a time value representing the end of today's workday.
If TODAY-ONLY is non-nil, the value returned will be relative only to
the time worked today, and not to past time."
  (time-since (let ((discrep (timeclock-find-discrep)))
		(if discrep
		    (if today-only
			(cadr discrep)
		      (car discrep))
		  0))))