*** empty log message ***
authorKim F. Storm <storm@cua.dk>
Thu, 28 Nov 2002 23:02:45 +0000 (23:02 +0000)
committerKim F. Storm <storm@cua.dk>
Thu, 28 Nov 2002 23:02:45 +0000 (23:02 +0000)
lisp/ChangeLog

index 1b0032c..636f5ec 100644 (file)
@@ -1,3 +1,15 @@
+2002-11-29  Kim F. Storm  <storm@cua.dk>
+
+       * mwheel.el: Avoid accidental yanking of text while scrolling with
+       the mouse wheel.  This adds a short period after each mouse wheel
+       scroll event where a click on the mouse wheel button is ignored.
+       (mouse-wheel-click-event, mouse-wheel-inhibit-click-time): New customs.
+       (mouse-wheel-click-button, mwheel-inhibit-click-event-timer): New vars.
+       (mwheel-inhibit-click-timeout,mwheel-filter-click-events): New defuns.
+       (mwheel-scroll): Add mwheel-filter-click-events as pre-command-hook.
+       Start mwheel-inhibit-click-event-timer with timeout handler
+       mwheel-inhibit-click-timeout.   
+       
 2002-11-28  Nick Roberts  <nick@nick.uklinux.net>
 
        * tooltip.el (tooltip-gud-tips-setup): Remove.