Skip to content

GitLab

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

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

parent 42e32ed8
Hide whitespace changes
Inline Side-by-side
Showing with 7 additions and 2 deletions
lisp/ChangeLog
View file @ 60806b73
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>
......
lisp/calendar/cal-menu.el
View file @ 60806b73
......@@ -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