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 @@ ...@@ -95,11 +95,13 @@
,@(let ((l ())) ,@(let ((l ()))
;; Show 11 years--5 before, 5 after year of middle month. ;; Show 11 years--5 before, 5 after year of middle month.
(dotimes (i 11) (dotimes (i 11)
(let ((y (+ 2007 -5 i))) (push (vector "For Year"
(push (vector (format "For Year %s" y) `(lambda ()
(list (list 'lambda 'nil '(interactive) (interactive)
(list 'list-holidays y y)))) (holiday-list (+ displayed-year ,(- i 5))
l))) (+ displayed-year ,(- i 5))))
:suffix `(number-to-string (+ displayed-year ,(- i 5))))
l))
(nreverse l)) (nreverse l))
"--" "--"
["Unmark Calendar" calendar-unmark] ["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