Function: calendar-mark-holidays

calendar-mark-holidays is an autoloaded, interactive and byte-compiled function defined in holidays.el.gz.

Signature

(calendar-mark-holidays &optional EVENT)

Documentation

Mark notable days in the calendar window.

If EVENT is non-nil, it's an event indicating the buffer position to use instead of point.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/holidays.el.gz
;; FIXME move to calendar?
;;;###cal-autoload
(defun calendar-mark-holidays (&optional event)
  "Mark notable days in the calendar window.
If EVENT is non-nil, it's an event indicating the buffer position to
use instead of point."
  (interactive (list last-nonmenu-event))
  ;; If called from a menu, with the calendar window not selected.
  (with-current-buffer
      (if event (window-buffer (posn-window (event-start event)))
        (current-buffer))
    (setq calendar-mark-holidays-flag t)
    (message "Marking holidays...")
    (dolist (holiday (calendar-holiday-list))
      (calendar-mark-visible-date (car holiday) calendar-holiday-marker))
    (message "Marking holidays...done")))