rc/xemacs/mwheel.el

   1 ;;=============================================================================
   2 ;;                    scroll on  mouse wheel
   3 ;;=============================================================================
   4 ;; scroll on wheel of mouses
   5 (define-key global-map 'button4
   6   '(lambda (&rest args)
   7      (interactive)
   8      (let ((curwin (selected-window)))
   9        (select-window (car (mouse-pixel-position)))
  10        (scroll-down 5)
  11        (select-window curwin)
  12        )))
  13 (define-key global-map [(shift button4)]
  14   '(lambda (&rest args)
  15      (interactive)
  16      (let ((curwin (selected-window)))
  17        (select-window (car (mouse-pixel-position)))
  18        (scroll-down 1)
  19        (select-window curwin)
  20        )))
  21 (define-key global-map [(control button4)]
  22   '(lambda (&rest args)
  23      (interactive)
  24      (let ((curwin (selected-window)))
  25        (select-window (car (mouse-pixel-position)))
  26        (scroll-down)
  27        (select-window curwin)
  28        )))
  29
  30 (define-key global-map 'button5
  31   '(lambda (&rest args)
  32      (interactive)
  33      (let ((curwin (selected-window)))
  34        (select-window (car (mouse-pixel-position)))
  35        (scroll-up 5)
  36        (select-window curwin)
  37        )))
  38 (define-key global-map [(shift button5)]
  39   '(lambda (&rest args)
  40      (interactive)
  41      (let ((curwin (selected-window)))
  42        (select-window (car (mouse-pixel-position)))
  43        (scroll-up 1)
  44        (select-window curwin)
  45        )))
  46 (define-key global-map [(control button5)]
  47   '(lambda (&rest args)
  48      (interactive)
  49      (let ((curwin (selected-window)))
  50        (select-window (car (mouse-pixel-position)))
  51        (scroll-up)
  52        (select-window curwin)
  53        )))