From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 May 1997 17:54:28 +0000 (+0000)
Subject: (cal-menu-list-holidays-following-year)
X-Git-Tag: emacs-20.1~2278
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f10cbb4c17759098122f4a7c129372e959f0c1e7;p=emacs.git

(cal-menu-list-holidays-following-year)
(cal-menu-list-holidays-previous-year)
(cal-menu-list-holidays-year): New commands.
(calendar-mode-map): Put them in the holidays menu.
---

diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index c5db298e075..037c00adbbe 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -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."
+  (interactive)
+  (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."
+  (interactive)
+  (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."
+  (interactive)
+  (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