diff options
author | Mark A. Hershberger <[email protected]> | 2007-11-24 19:44:25 +0000 |
---|---|---|
committer | Mark A. Hershberger <[email protected]> | 2007-11-24 19:44:25 +0000 |
commit | f860383bedd4c09fb8950c7cbd6e7a40989c909d (patch) | |
tree | 745a8e348c4fef0d5104472d741145f4ef3fc59c | |
parent | b58a65fa205f7947d5aefae81e03a97d06f23e54 (diff) |
Fix holiday menu bug
-rw-r--r-- | lisp/calendar/cal-menu.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 7158774dd2..094e6421ea 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -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] |