(cal-menu-scroll-menu): Add bindings for

week forward/backward.

2 files changed, 7 insertions, 0 deletions

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  <dann@ics.uci.edu>
+
+        * calendar/cal-menu.el (cal-menu-scroll-menu): Add bindings for
+        week forward/backward.
+
 2008-11-20  Juanma Barranquero  <lekktu@gmail.com>
 
         * 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"])