Mercurial > emacs
view lisp/sb-tag-gt.xpm @ 48574:3e3b1f1265f5
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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 28 Nov 2002 23:03:30 +0000 |
| parents | c0758fd9ca7a |
| children | c2a09ac7b7b1 |
line wrap: on
line source
/* XPM */ static char * sb_tag_gt_xpm[] = { "20 15 4 1", " c None", ". c #828282", "+ c #000000", "@ c #FFF993", " ", " ", " ............... ", " .+++++++++++++++.", " .+@@@@@++@@@@@@@+.", " .+@@@@@@+++@@@@@@+.", ".+@@@@@@@++++@@@@@+.", ".+@++@@@@+++++@@@@+.", ".+@++@@@@+++++.@@@+.", ".+@@@@@@@++++.@@@@+.", " .+@@@@@@+++.@@@@@+.", " .+@@@@@++.@@@@@@+.", ". .++++++.++++++++.", " ............... ", " "};