Function: cal-tex-first-blank-p

cal-tex-first-blank-p is a byte-compiled function defined in cal-tex.el.gz.

Signature

(cal-tex-first-blank-p MONTH YEAR)

Documentation

Determine if any days of the first week will be printed.

Return t if there will there be any days of the first week printed in the calendar starting in MONTH YEAR.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-tex.el.gz
(defun cal-tex-first-blank-p (month year)
  "Determine if any days of the first week will be printed.
Return t if there will there be any days of the first week printed
in the calendar starting in MONTH YEAR."
  ;; Check days 1-7 of the month, until we find the last day of the week.
  (catch 'found
    (let (dow)
      (dotimes (i 7)
        (if (memq (setq dow (calendar-day-of-week (list month (1+ i) year)))
                  cal-tex-which-days)
            (throw 'found t)
          (if (= dow (calendar-week-end-day)) (throw 'found nil)))))))