[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog calendar/calendar.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog calendar/calendar.el |
Date: |
Tue, 22 Sep 2009 07:38:02 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/22 07:38:01
Modified files:
lisp : ChangeLog
lisp/calendar : calendar.el
Log message:
(calendar-mode-map): Make mouse-1 and 3 clicks on the scroll-bar
scroll the calendar window rather than the buffer.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16229&r2=1.16230
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/calendar/calendar.el?cvsroot=emacs&r1=1.284&r2=1.285
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16229
retrieving revision 1.16230
diff -u -b -r1.16229 -r1.16230
--- ChangeLog 22 Sep 2009 07:15:31 -0000 1.16229
+++ ChangeLog 22 Sep 2009 07:37:58 -0000 1.16230
@@ -1,5 +1,8 @@
2009-09-22 Glenn Morris <address@hidden>
+ * 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).
Index: calendar/calendar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/calendar.el,v
retrieving revision 1.284
retrieving revision 1.285
diff -u -b -r1.284 -r1.285
--- calendar/calendar.el 31 Aug 2009 01:33:43 -0000 1.284
+++ calendar/calendar.el 22 Sep 2009 07:38:01 -0000 1.285
@@ -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'.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog calendar/calendar.el,
Glenn Morris <=