[Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v

[Mark A. Hershberger]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Mark A. Hershberger <hexmode>   07/11/24 19:44:26

Index: cal-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-menu.el,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -b -r1.76 -r1.77
--- cal-menu.el 22 Nov 2007 04:17:17 -0000      1.76
+++ cal-menu.el 24 Nov 2007 19:44:25 -0000      1.77
@@ -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]