Function: calendar-check-holidays

calendar-check-holidays is an autoloaded and byte-compiled function defined in holidays.el.gz.

Signature

(calendar-check-holidays DATE)

Documentation

Check the list of holidays for any that occur on DATE.

DATE is a list (month day year). This function considers the holidays from the list calendar-holidays, and returns a list of strings describing those holidays that apply on DATE, or nil if none do.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/holidays.el.gz
;;;###diary-autoload
(defun calendar-check-holidays (date)
  "Check the list of holidays for any that occur on DATE.
DATE is a list (month day year).  This function considers the
holidays from the list `calendar-holidays', and returns a list of
strings describing those holidays that apply on DATE, or nil if none do."
  (let ((displayed-month (calendar-extract-month date))
        (displayed-year (calendar-extract-year date))
        holiday-list)
    (dolist (h (calendar-holiday-list) holiday-list)
      (if (calendar-date-equal date (car h))
          (setq holiday-list (append holiday-list (cdr h)))))))