Mercurial > emacs

changeset 86430:4c73f7497804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revert previous commit, made without ChangeLog entry.
author Glenn Morris <rgm@gnu.org>
date Sun, 25 Nov 2007 02:49:38 +0000
parents 8a1bf64a83a6
children 9c38f723c526
files lisp/calendar/cal-menu.el
diffstat 1 files changed, 7 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el	Sun Nov 25 01:58:54 2007 +0000
+++ b/lisp/calendar/cal-menu.el	Sun Nov 25 02:49:38 2007 +0000
@@ -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]