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

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

Browse source
This commit is contained in:
Glenn Morris 2007-11-26 07:28:37 +00:00
parent 42e32ed89c
commit 60806b7399
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
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>

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

@ -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))
"--"