Function: cal-tex-last-blank-p

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

Signature

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

Documentation

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

Return t if there will there be any days of the last 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-last-blank-p (month year)
  "Determine if any days of the last week will be printed.
Return t if there will there be any days of the last week printed
in the calendar starting in MONTH YEAR."
  ;; Check backwards from the last day of the month, until we find the
  ;; start of the last week in the month.
  (catch 'found
    (let ((last-day (calendar-last-day-of-month month year))
          dow)
      (dotimes (i 7)
        (if (memq (setq dow (calendar-day-of-week
                             (list month (- last-day i) year)))
                  cal-tex-which-days)
            (throw 'found t)
          (if (= dow calendar-week-start-day) (throw 'found nil)))))))