[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v |
Date: |
Sun, 25 Nov 2007 02:49:39 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 07/11/25 02:49:39
Index: cal-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-menu.el,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -b -r1.77 -r1.78
--- cal-menu.el 24 Nov 2007 19:44:25 -0000 1.77
+++ cal-menu.el 25 Nov 2007 02:49:38 -0000 1.78
@@ -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]
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v, Glenn Morris, 2007/11/21
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v, Mark A. Hershberger, 2007/11/24
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v,
Glenn Morris <=
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v, Glenn Morris, 2007/11/26
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v, Glenn Morris, 2007/11/26
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-menu.el,v, Glenn Morris, 2007/11/27