Function: calcFunc-now

calcFunc-now is an autoloaded and byte-compiled function defined in calc-forms.el.gz.

Signature

(calcFunc-now &optional ZONE)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-forms.el.gz
(defun calcFunc-now (&optional zone)
  ;; FIXME: Support subseconds.
  (let ((date (let ((now (decode-time nil nil 'integer)))
		(list 'date (math-dt-to-date
			     (list (decoded-time-year now)
                                   (decoded-time-month now)
                                   (decoded-time-day now)
				   (decoded-time-hour now)
                                   (decoded-time-minute now)
                                   (decoded-time-second now)))))))
    (if zone
	(math-add date (math-div (math-sub (calcFunc-tzone nil date)
					   (calcFunc-tzone zone date))
				 '(float 864 2)))
      date)))