;; PUERRO.NET/BLOG CUSTOM MOUSE SETTINGS
;;================================================ =============================
;; scroll on mouse wheel
;;================================================ =============================
;; scroll on wheel of mouses
(if (not (boundp \u2018MULE))
    (if (featurep \u2018xemacs)
;; xemacs20, xemacs21
	(progn
	  (define-key global-map \u2018button4
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-down 5)
		      (select-window curwin)
		      )))
	  (define-key global-map [(shift button4)]
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-down 1)
		      (select-window curwin)
		      )))
	  (define-key global-map [(control button4)]
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-down)
		      (select-window curwin)
		      )))

	  (define-key global-map \u2018button5
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-up 5)
		      (select-window curwin)
		      )))
	  (define-key global-map [(shift button5)]
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-up 1)
		      (select-window curwin)
		      )))
	  (define-key global-map [(control button5)]
	    \u2018(lambda (&rest args)
		    (interactive)
		    (let ((curwin (selected-window)))
		      (select-window (car (mouse-pixel-position)))
		      (scroll-up)
		      (select-window curwin)
		      )))
	  )
;; emacs20
      (progn
	(defun up-slightly () (interactive) (scroll-up 5))
	(defun down-slightly () (interactive) (scroll-down 5))
	(global-set-key [mouse-4] \u2018down-slightly)
	(global-set-key [mouse-5] \u2018up-slightly)

	(defun up-one () (interactive) (scroll-up 1))
	(defun down-one () (interactive) (scroll-down 1))
	(global-set-key [S-mouse-4] \u2018down-one)
	(global-set-key [S-mouse-5] \u2018up-one)

	(defun up-a-lot () (interactive) (scroll-up))
	(defun down-a-lot () (interactive) (scroll-down))
	(global-set-key [C-mouse-4] \u2018down-a-lot)
	(global-set-key [C-mouse-5] \u2018up-a-lot)
	)
      )
  )
;; END PUERRO.NET/BLOG CUSTOM MOUSE SETTINGS