1 ;;=============================================================================
2 ;; scroll on mouse wheel
3 ;;=============================================================================
4 ;; scroll on wheel of mouses
5 (define-key global-map 'button4
8 (let ((curwin (selected-window)))
9 (select-window (car (mouse-pixel-position)))
11 (select-window curwin)
13 (define-key global-map [(shift button4)]
16 (let ((curwin (selected-window)))
17 (select-window (car (mouse-pixel-position)))
19 (select-window curwin)
21 (define-key global-map [(control button4)]
24 (let ((curwin (selected-window)))
25 (select-window (car (mouse-pixel-position)))
27 (select-window curwin)
30 (define-key global-map 'button5
33 (let ((curwin (selected-window)))
34 (select-window (car (mouse-pixel-position)))
36 (select-window curwin)
38 (define-key global-map [(shift button5)]
41 (let ((curwin (selected-window)))
42 (select-window (car (mouse-pixel-position)))
44 (select-window curwin)
46 (define-key global-map [(control button5)]
49 (let ((curwin (selected-window)))
50 (select-window (car (mouse-pixel-position)))
52 (select-window curwin)