From d46b521475d73f3452e0a5cfdf0533233159adcd Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Thu, 20 Nov 2008 18:14:10 +0000 Subject: [PATCH] (cal-menu-scroll-menu): Add bindings for week forward/backward. --- lisp/ChangeLog | 5 +++++ lisp/calendar/cal-menu.el | 2 ++ 2 files changed, 7 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 25dec578989..e86f7512083 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-11-20 Dan Nicolaescu + + * calendar/cal-menu.el (cal-menu-scroll-menu): Add bindings for + week forward/backward. + 2008-11-20 Juanma Barranquero * ehelp.el (electric-help-map, ehelp-map): Define within defvar. diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 8818498480d..f8274aba61b 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -145,9 +145,11 @@ (defconst cal-menu-scroll-menu '("Scroll" + ["Forward 1 Week" calendar-forward-week] ["Forward 1 Month" calendar-scroll-left] ["Forward 3 Months" calendar-scroll-left-three-months] ["Forward 1 Year" (calendar-scroll-left 12) :keys "4 C-v"] + ["Backward 1 Week" calendar-backward-week] ["Backward 1 Month" calendar-scroll-right] ["Backward 3 Months" calendar-scroll-right-three-months] ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]) -- 2.39.2