Function: calendar--month-overlap-p

calendar--month-overlap-p is a byte-compiled function defined in calendar.el.gz.

Signature

(calendar--month-overlap-p M1 M2 MON N)

Documentation

Return non-nil if [M1, M2] intersects [MON, MON+N].

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/calendar.el.gz
(defun calendar--month-overlap-p (m1 m2 mon n)
  "Return non-nil if [M1, M2] intersects [MON, MON+N]."
  (if (zerop n)
      (<= m1 mon m2)
    (setq n (+ mon n))
    (if (<= n 12)
        (<= (max m1 mon) (min m2 n))
      (or
       (<= (max m1 1) (min m2 (- n 12)))
       (<= (max m1 mon) (min m2 12))))))