Function: calendar-get-month-range

calendar-get-month-range is a byte-compiled function defined in calendar.el.gz.

Signature

(calendar-get-month-range)

Documentation

Return a list (M1 Y1 M2 Y2) as the range of current calendar.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar-get-month-range ()
  "Return a list (M1 Y1 M2 Y2) as the range of current calendar."
  (let* ((y1 displayed-year)
         (y2 displayed-year)
         (m1 (1- displayed-month))
         (m2 (% (+ (1- m1) calendar-total-months) 12)))
    (if (= m2 0) (setq m2 12))
    (cond
     ((> m1 1)
      (when (< m2 m1) (setq y2 (1+ y1))))
     ((= m1 0)
      (setq m1 12 y1 (1- y1))))
    (list m1 y1 m2 y2)))