Mercurial > emacs
changeset 105140:c9ff23f80f09
(cal-menu-scroll-menu): Add a sub-section with commands that move
point (as opposed to scrolling).
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 22 Sep 2009 07:15:31 +0000 |
| parents | 549ca02e98fe |
| children | c9587468d637 |
| files | lisp/ChangeLog lisp/calendar/cal-menu.el |
| diffstat | 2 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 22 02:31:54 2009 +0000 +++ b/lisp/ChangeLog Tue Sep 22 07:15:31 2009 +0000 @@ -1,5 +1,8 @@ 2009-09-22 Glenn Morris <rgm@gnu.org> + * 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.
--- a/lisp/calendar/cal-menu.el Tue Sep 22 02:31:54 2009 +0000 +++ b/lisp/calendar/cal-menu.el Tue Sep 22 07:15:31 2009 +0000 @@ -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))