From f860383bedd4c09fb8950c7cbd6e7a40989c909d Mon Sep 17 00:00:00 2001 From: "Mark A. Hershberger" Date: Sat, 24 Nov 2007 19:44:25 +0000 Subject: [PATCH] Fix holiday menu bug --- lisp/calendar/cal-menu.el | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 7158774dd2c..094e6421eae 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -95,13 +95,11 @@ ,@(let ((l ())) ;; Show 11 years--5 before, 5 after year of middle month. (dotimes (i 11) - (push (vector "For Year" - `(lambda () - (interactive) - (holiday-list (+ displayed-year ,(- i 5)) - (+ displayed-year ,(- i 5)))) - :suffix `(number-to-string (+ displayed-year ,(- i 5)))) - l)) + (let ((y (+ 2007 -5 i))) + (push (vector (format "For Year %s" y) + (list (list 'lambda 'nil '(interactive) + (list 'list-holidays y y)))) + l))) (nreverse l)) "--" ["Unmark Calendar" calendar-unmark] -- 2.39.2