Commit 60806b73 authored by Glenn Morris's avatar Glenn Morris
Browse files

(cal-menu-holidays-menu): Use :label rather than :suffix.

parent 42e32ed8
2007-11-26 Glenn Morris <rgm@gnu.org>
* calendar/cal-menu.el (cal-menu-holidays-menu): Use :label rather
than :suffix.
* emacs-lisp/easymenu.el (easy-menu-define): Doc fix.
2007-11-26 Simon Josefsson <simon@josefsson.org>
......
......@@ -94,13 +94,15 @@
"--"
,@(let ((l ()))
;; Show 11 years--5 before, 5 after year of middle month.
;; http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01813.html
(dotimes (i 11)
(push (vector "For Year"
(push (vector (format "hol-year-%d" i)
`(lambda ()
(interactive)
(holiday-list (+ displayed-year ,(- i 5))
(+ displayed-year ,(- i 5))))
:suffix `(number-to-string (+ displayed-year ,(- i 5))))
:label `(format "For Year %d"
(+ displayed-year ,(- i 5))))
l))
(nreverse l))
"--"
......
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