Mercurial > emacs
changeset 105141:c9587468d637
(calendar-mode-map): Make mouse-1 and 3 clicks on the scroll-bar
scroll the calendar window rather than the buffer.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 22 Sep 2009 07:37:58 +0000 |
| parents | c9ff23f80f09 |
| children | e2af9a73da8d |
| files | lisp/ChangeLog lisp/calendar/calendar.el |
| diffstat | 2 files changed, 11 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Sep 22 07:15:31 2009 +0000 +++ b/lisp/ChangeLog Tue Sep 22 07:37:58 2009 +0000 @@ -1,5 +1,8 @@ 2009-09-22 Glenn Morris <rgm@gnu.org> + * calendar/calendar.el (calendar-mode-map): Make mouse-1 and 3 clicks on + the scroll-bar scroll the calendar window rather than the buffer. + * calendar/cal-menu.el (cal-menu-scroll-menu): Add a sub-section with commands that move point (as opposed to scrolling).
--- a/lisp/calendar/calendar.el Tue Sep 22 07:15:31 2009 +0000 +++ b/lisp/calendar/calendar.el Tue Sep 22 07:37:58 2009 +0000 @@ -1594,6 +1594,14 @@ (define-key map [down-mouse-2] (easy-menu-binding cal-menu-global-mouse-menu)) + ;; Left-click moves us forward in time, right-click backwards. + ;; cf scroll-bar.el. + (define-key map [vertical-scroll-bar mouse-1] 'calendar-scroll-left) + (define-key map [vertical-scroll-bar drag-mouse-1] 'calendar-scroll-left) + ;; down-mouse-2 stays as scroll-bar-drag. + (define-key map [vertical-scroll-bar mouse-3] 'calendar-scroll-right) + (define-key map [vertical-scroll-bar drag-mouse-3] 'calendar-scroll-right) + map) "Keymap for `calendar-mode'.")