Mercurial > emacs
changeset 94313:17765ebde76c
(cal-menu-diary-menu): Fix typo.
(cal-menu-scroll-menu): Use commands rather than key macros, which don't
work with easymenu. Add :keys where needed.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 24 Apr 2008 05:44:38 +0000 |
| parents | eaaf578ce48f |
| children | c3992d04d39a |
| files | lisp/calendar/cal-menu.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-menu.el Thu Apr 24 05:43:27 2008 +0000 +++ b/lisp/calendar/cal-menu.el Thu Apr 24 05:44:38 2008 +0000 @@ -61,7 +61,7 @@ ["Yearly" diary-islamic-insert-yearly-entry]) ("Insert Hebrew" ["One time" diary-hebrew-insert-entry] - ["Monthly" diary-hebrew--insert-monthly-entry] + ["Monthly" diary-hebrew-insert-monthly-entry] ["Yearly" diary-hebrew-insert-yearly-entry]))) (defun cal-menu-holiday-window-suffix () @@ -145,10 +145,10 @@ '("Scroll" ["Forward 1 Month" calendar-scroll-left] ["Forward 3 Months" calendar-scroll-left-three-months] - ["Forward 1 Year" "4\C-v"] + ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"] ["Backward 1 Month" calendar-scroll-right] ["Backward 3 Months" calendar-scroll-right-three-months] - ["Backward 1 Year" "4\ev"])) + ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"])) (defun cal-menu-x-popup-menu (position menu) "Like `x-popup-menu', but print an error message if popups are unavailable.