diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-09-22 07:15:31 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-09-22 07:15:31 +0000 |
| commit | d8899a74164722c9f6f04f095b32def2932c261b (patch) | |
| tree | 8a2d2ddf42e5b44cbe704ecc8e90ab9964253f03 /lisp/calendar/cal-menu.el | |
| parent | 49b289c04616e5ba9706a841aaee0904004de3d0 (diff) | |
| download | emacs-d8899a74164722c9f6f04f095b32def2932c261b.tar.gz | |
(cal-menu-scroll-menu): Add a sub-section with commands that move
point (as opposed to scrolling).
Diffstat (limited to 'lisp/calendar/cal-menu.el')
| -rw-r--r-- | lisp/calendar/cal-menu.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index d60daaafc1c..e39e181dbed 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el @@ -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)) |