From 771e1882933cfc7ef45952bf6da0c725c957eb75 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 25 Nov 2007 02:49:38 +0000 Subject: [PATCH] Revert previous commit, made without ChangeLog entry. --- lisp/calendar/cal-menu.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 094e6421eae..7158774dd2c 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -95,11 +95,13 @@ ,@(let ((l ())) ;; Show 11 years--5 before, 5 after year of middle month. (dotimes (i 11) - (let ((y (+ 2007 -5 i))) - (push (vector (format "For Year %s" y) - (list (list 'lambda 'nil '(interactive) - (list 'list-holidays y y)))) - l))) + (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)) (nreverse l)) "--" ["Unmark Calendar" calendar-unmark] -- 2.39.2