[Emacs-diffs] emacs/lisp ChangeLog calendar/cal-menu.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/09/22 07:15:34

Modified files:
        lisp           : ChangeLog 
        lisp/calendar  : cal-menu.el 

Log message:
        (cal-menu-scroll-menu): Add a sub-section with commands that move
        point (as opposed to scrolling).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16228&r2=1.16229
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/cal-menu.el?cvsroot=emacs&r1=1.115&r2=1.116

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16228
retrieving revision 1.16229
diff -u -b -r1.16228 -r1.16229
--- ChangeLog   22 Sep 2009 02:28:43 -0000      1.16228
+++ ChangeLog   22 Sep 2009 07:15:31 -0000      1.16229
@@ -1,5 +1,8 @@
 2009-09-22  Glenn Morris  <address@hidden>
 
+       * calendar/cal-menu.el (cal-menu-scroll-menu): Add a sub-section with
+       commands that move point (as opposed to scrolling).
+
        * emulation/tpu-edt.el (tpu-copy-keyfile): Fix condition-case handler.
 
        * emacs-lisp/elint.el (elint): New custom group.

Index: calendar/cal-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-menu.el,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -b -r1.115 -r1.116
--- calendar/cal-menu.el        19 Jul 2009 00:32:31 -0000      1.115
+++ calendar/cal-menu.el        22 Sep 2009 07:15:34 -0000      1.116
@@ -145,12 +145,23 @@
 
 (defconst cal-menu-scroll-menu
   '("Scroll"
+    ["Scroll Commands" nil :help "Commands that scroll the visible window"]
     ["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 Month" calendar-scroll-right]
     ["Backward 3 Months" calendar-scroll-right-three-months]
-    ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"])
+    ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]
+    "--"
+    ["Motion Commands" nil :help "Commands that move point"]
+    ["Forward 1 Day" calendar-forward-day]
+    ["Forward 1 Week" calendar-forward-week]
+    ["Forward 1 Month" calendar-forward-month]
+    ["Forward 1 Year" calendar-forward-year]
+    ["Backward 1 Day" calendar-backward-day]
+    ["Backward 1 Week" calendar-backward-week]
+    ["Backward 1 Month" calendar-backward-month]
+    ["Backward 1 Year" calendar-backward-year])
   "Key map for \"Scroll\" menu in the calendar.")
 
 (declare-function x-popup-menu "xmenu.c" (position menu))