Re: 23.0.50; Holidays from year 2007 are displayed in a buffer named 2002

[mah@everybody.org (Mark A. Hershberger)]

Peter Dyballa <Peter_Dyballa@Freenet.DE> writes:

> When I then choose year 2007 from the Holidays menu the holidays
> buffer has "Holidays for 2002" in its mode line – and the holiday
> dates are recorded as coming from 2002, which I can't check further,
> because my oldest calendar is from 2005

I was able to reproduce this with the latest CVS snapshot.

I've applied the following patch to fix it:

*** cal-menu.el.~1.76.~	2007-11-21 23:17:17.000000000 -0500
--- cal-menu.el	2007-11-24 14:38:15.000000000 -0500
***************
*** 95,107 ****
      ,@(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))
          (nreverse l))
      "--"
      ["Unmark Calendar" calendar-unmark]
--- 95,105 ----
      ,@(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)))
          (nreverse l))
      "--"
      ["Unmark Calendar" calendar-unmark]


-- 
http://hexmode.com/
GPG Fingerprint: 7E15 362D A32C DFAB E4D2  B37A 735E F10A 2DFC BFF5

The most beautiful experience we can have is the mysterious.
    -- Albert Einstein, The World As I See it