Commit 771e1882 authored by Glenn Morris's avatar Glenn Morris
Browse files

Revert previous commit, made without ChangeLog entry.

parent 93a2ac97
......@@ -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]
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment