Mercurial > emacs

changeset 86414:95c52422857d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix holiday menu bug
author Mark A. Hershberger <mah@everybody.org>
date Sat, 24 Nov 2007 19:44:25 +0000
parents c69102c73c4f
children 404f9a9c5f6c
files lisp/calendar/cal-menu.el
diffstat 1 files changed, 5 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el	Sat Nov 24 16:24:01 2007 +0000
+++ b/lisp/calendar/cal-menu.el	Sat Nov 24 19:44:25 2007 +0000
@@ -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]