Mercurial > emacs
diff lisp/calendar/calendar.el @ 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 | ab0d63f460aa |
children | 3fec4318d760 |
line wrap: on
line diff
--- 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'.")