procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Revert previous commit, made without ChangeLog entry.

Browse source
This commit is contained in:
Glenn Morris 2007-11-25 02:49:38 +00:00
parent 93a2ac9768
commit 771e188293
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/calendar/cal-menu.el
View file

@ -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]