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

week forward/backward.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 25dec578989b924bb10df622621c096186276b46..e86f751208319c4854d314b9216d816b10ecb77a 100644 (file)
--- 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 8818498480dacab3068975c4f67d11dd52dea014..f8274aba61b3d8e41fddd50ef8c61fc907e1a02f 100644 (file)
--- 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"])