diff options
| author | Glenn Morris <[email protected]> | 2007-11-26 07:28:37 +0000 |
|---|---|---|
| committer | Glenn Morris <[email protected]> | 2007-11-26 07:28:37 +0000 |
| commit | 60806b7399683a8bddf4cb25ecce2534b4784e76 (patch) | |
| tree | 897792418d6c9d912aa8817063dd417367bec515 | |
| parent | 42e32ed89c84725531121a99129767a52b22b105 (diff) | |
(cal-menu-holidays-menu): Use :label rather than :suffix.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/calendar/cal-menu.el | 6 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8b8d379892..a10977b520 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-11-26 Glenn Morris <[email protected]> + * 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 <[email protected]> diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 7158774dd2..60004f7983 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -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)) "--" |