Commit f10cbb4c authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files


(cal-menu-list-holidays-year): New commands.
(calendar-mode-map): Put them in the holidays menu.
parent 8609911b
......@@ -90,6 +90,12 @@
'("Unmark" . calendar-unmark))
(define-key calendar-mode-map [menu-bar holidays mark]
'("Mark" . mark-calendar-holidays))
(define-key calendar-mode-map [menu-bar holidays previous-year]
'("Previous year" . cal-menu-list-holidays-previous-year))
(define-key calendar-mode-map [menu-bar holidays following-year]
'("Following year" . cal-menu-list-holidays-following-year))
(define-key calendar-mode-map [menu-bar holidays year]
'("Year" . cal-menu-list-holidays-year))
(define-key calendar-mode-map [menu-bar holidays 3-mon]
'("3 Months" . list-calendar-holidays))
(define-key calendar-mode-map [menu-bar holidays 1-day]
......@@ -167,6 +173,24 @@
(define-key calendar-mode-map [menu-bar scroll fwd-1]
'("Forward 1 Month" . scroll-calendar-left))
(defun cal-menu-list-holidays-year ()
"Display a list of the holidays of the selected date's year."
(let ((year (extract-calendar-year (calendar-cursor-to-date))))
(list-holidays year year)))
(defun cal-menu-list-holidays-following-year ()
"Display a list of the holidays of the following year."
(let ((year (1+ (extract-calendar-year (calendar-cursor-to-date)))))
(list-holidays year year)))
(defun cal-menu-list-holidays-previous-year ()
"Display a list of the holidays of the previous year."
(let ((year (1- (extract-calendar-year (calendar-cursor-to-date)))))
(list-holidays year year)))
(defun calendar-event-to-date (&optional error)
"Date of last event.
If event is not on a specific date, signals an error if optional parameter
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment