Variable: cal-menu-holidays-menu

cal-menu-holidays-menu is a variable defined in cal-menu.el.gz.

Value

Large value
("Holidays"
 ["For Cursor Date -" calendar-cursor-holidays :suffix
  (calendar-date-string (calendar-cursor-to-date) t t) :visible
  (calendar-cursor-to-date)]
 ["For Window -" calendar-list-holidays :suffix
  (cal-menu-holiday-window-suffix)]
 ["For Today -" (calendar-cursor-holidays (calendar-current-date))
  :suffix (calendar-date-string (calendar-current-date) t t)]
 "--"
 ["hol-year-0"
  #[0 "\302	\300\303Z\\!\207" [0 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year -5))]
 ["hol-year-1"
  #[0 "\302	\300\303Z\\!\207" [1 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year -4))]
 ["hol-year-2"
  #[0 "\302	\300\303Z\\!\207" [2 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year -3))]
 ["hol-year-3"
  #[0 "\302	\300\303Z\\!\207" [3 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year -2))]
 ["hol-year-4"
  #[0 "\302	\300\303Z\\!\207" [4 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year -1))]
 ["hol-year-5"
  #[0 "\302	\300\303Z\\!\207" [5 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 0))]
 ["hol-year-6"
  #[0 "\302	\300\303Z\\!\207" [6 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 1))]
 ["hol-year-7"
  #[0 "\302	\300\303Z\\!\207" [7 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 2))]
 ["hol-year-8"
  #[0 "\302	\300\303Z\\!\207" [8 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 3))]
 ["hol-year-9"
  #[0 "\302	\300\303Z\\!\207" [9 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 4))]
 ["hol-year-10"
  #[0 "\302	\300\303Z\\!\207" [10 displayed-year holiday-list 5] 4
      nil nil]
  :label (format "For Year %d" (+ displayed-year 5))]
 "--" ["Unmark Calendar" calendar-unmark]
 ["Mark Holidays" calendar-mark-holidays])

Documentation

Key map for "Holidays" menu in the calendar.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/cal-menu.el.gz
(defvar displayed-year)                 ; from calendar-generate

(defconst cal-menu-holidays-menu
  `("Holidays"
    ["For Cursor Date -" calendar-cursor-holidays
     :suffix (calendar-date-string (calendar-cursor-to-date) t t)
     :visible (calendar-cursor-to-date)]
    ["For Window -" calendar-list-holidays
     :suffix (cal-menu-holiday-window-suffix)]
    ["For Today -" (calendar-cursor-holidays (calendar-current-date))
     :suffix (calendar-date-string (calendar-current-date) t t)]
    "--"
    ,@(let ((l ()))
        ;; Show 11 years--5 before, 5 after year of middle month.
        ;; We used to use :suffix rather than :label and bumped into
        ;; an easymenu bug:
        ;; https://lists.gnu.org/r/emacs-devel/2007-11/msg01813.html
        ;; The bug has since been fixed.
        (dotimes (i 11)
          (push (vector (format "hol-year-%d" i)
                        (lambda ()
                          (interactive)
                          (holiday-list (+ displayed-year (- i 5))))
                        :label `(format "For Year %d"
                                       (+ displayed-year ,(- i 5))))
                l))
        (nreverse l))
    "--"
    ["Unmark Calendar" calendar-unmark]
    ["Mark Holidays" calendar-mark-holidays])
  "Key map for \"Holidays\" menu in the calendar.")