Function: calendar-current-date

calendar-current-date is a byte-compiled function defined in calendar.el.gz.

Signature

(calendar-current-date &optional OFFSET)

Documentation

Return the current date in a list (month day year).

Optional integer OFFSET is a number of days from the current date.

Probably introduced at or before Emacs version 23.2.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar-current-date (&optional offset)
  "Return the current date in a list (month day year).
Optional integer OFFSET is a number of days from the current date."
  (let* ((now (decode-time))
         (now (list (decoded-time-month now)
                    (decoded-time-day now)
                    (decoded-time-year now))))
    (if (zerop (or offset 0))
        now
      (calendar-gregorian-from-absolute
       (+ offset (calendar-absolute-from-gregorian now))))))