[Emacs-commit] emacs/lisp mwheel.el

[Kim F. Storm]

CVSROOT:        /cvs
Module name:    emacs
Changes by:     Kim F. Storm <address@hidden>   02/11/28 18:03:30

Modified files:
        lisp           : mwheel.el 

Log message:
        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.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/mwheel.el.diff?tr1=1.19&tr2=1.20&r1=text&r2=text