# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1227204850 0
# Node ID 5482506bbfd10ce90d2b296d15b0b542305cea8f
# Parent  f5057049058b8864b2bce3de4440a896c27c3247
(cal-menu-scroll-menu): Add bindings for
week forward/backward.

diff -r f5057049058b -r 5482506bbfd1 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 20 16:57:30 2008 +0000
+++ b/lisp/ChangeLog	Thu Nov 20 18:14:10 2008 +0000
@@ -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 -r f5057049058b -r 5482506bbfd1 lisp/calendar/cal-menu.el
--- a/lisp/calendar/cal-menu.el	Thu Nov 20 16:57:30 2008 +0000
+++ b/lisp/calendar/cal-menu.el	Thu Nov 20 18:14:10 2008 +0000
@@ -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"])