From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: mah@everybody.org (Mark A. Hershberger) Newsgroups: gmane.emacs.devel,gmane.emacs.pretest.bugs Subject: Re: 23.0.50; Holidays from year 2007 are displayed in a buffer named 2002 Date: Sat, 24 Nov 2007 14:45:37 -0500 Message-ID: <877ik7v34u.fsf@everybody.org> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: ger.gmane.org 1195933606 7425 80.91.229.12 (24 Nov 2007 19:46:46 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 24 Nov 2007 19:46:46 +0000 (UTC) Cc: emacs-pretest-bug@gnu.org To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sat Nov 24 20:46:53 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1Iw0xo-0001iP-9A for ged-emacs-devel@m.gmane.org; Sat, 24 Nov 2007 20:46:52 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Iw0xZ-0005hx-FP for ged-emacs-devel@m.gmane.org; Sat, 24 Nov 2007 14:46:37 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Iw0x7-0005Wc-Dl for emacs-devel@gnu.org; Sat, 24 Nov 2007 14:46:09 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Iw0x6-0005WC-7T for emacs-devel@gnu.org; Sat, 24 Nov 2007 14:46:09 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Iw0x6-0005W7-2l for emacs-devel@gnu.org; Sat, 24 Nov 2007 14:46:08 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1Iw0x5-0006eO-Jt for emacs-devel@gnu.org; Sat, 24 Nov 2007 14:46:07 -0500 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Iw0ws-0001mC-Jz for emacs-devel@gnu.org; Sat, 24 Nov 2007 19:45:54 +0000 Original-Received: from 24.115.83.248.res-cmts.eph.ptd.net ([24.115.83.248]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 24 Nov 2007 19:45:54 +0000 Original-Received: from mah by 24.115.83.248.res-cmts.eph.ptd.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 24 Nov 2007 19:45:54 +0000 X-Injected-Via-Gmane: http://gmane.org/ Original-Followup-To: gmane.emacs.devel Original-Lines: 48 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: 24.115.83.248.res-cmts.eph.ptd.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (gnu/linux) X-URL: http://mah.everybody.org/weblog/ Cancel-Lock: sha1:BbS7Hk/FXlR2vijHCG6FFDVRDzM= X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:84069 gmane.emacs.pretest.bugs:20361 Archived-At: Peter Dyballa 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