Function: calendar-mark-month

calendar-mark-month is a byte-compiled function defined in diary-lib.el.gz.

Signature

(calendar-mark-month MONTH YEAR P-MONTH P-DAY P-YEAR &optional COLOR)

Documentation

Mark dates in the MONTH/YEAR that conform to pattern P-MONTH/P-DAY/P-YEAR.

A value of 0 in any position of the pattern is a wildcard. Optional argument COLOR is passed to calendar-mark-visible-date as MARK.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/diary-lib.el.gz
(defun calendar-mark-month (month year p-month p-day p-year &optional color)
  "Mark dates in the MONTH/YEAR that conform to pattern P-MONTH/P-DAY/P-YEAR.
A value of 0 in any position of the pattern is a wildcard.
Optional argument COLOR is passed to `calendar-mark-visible-date' as MARK."
  (if (or (and (= month p-month)
               (or (zerop p-year) (= year p-year)))
          (and (zerop p-month)
               (or (zerop p-year) (= year p-year))))
      (if (zerop p-day)
          (dotimes (i (calendar-last-day-of-month month year))
            (calendar-mark-visible-date (list month (1+ i) year) color))
        (calendar-mark-visible-date (list month p-day year) color))))