83 |
;; The following definition is used for debugging scroll bar events. |
;; The following definition is used for debugging scroll bar events. |
84 |
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event)) |
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event)) |
85 |
|
|
86 |
|
;; mwheel.el should probably be adapted to accept mouse-wheel events |
87 |
|
;; then this could go. |
88 |
(defun mouse-wheel-scroll-line (event) |
(defun mouse-wheel-scroll-line (event) |
89 |
"Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'." |
"Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'." |
90 |
(interactive "e") |
(interactive "e") |
91 |
(condition-case nil |
(condition-case nil |
92 |
(if (< (car (cdr (cdr event))) 0) |
(if (< (car (cdr (cdr event))) 0) |
93 |
(scroll-up mouse-wheel-scroll-amount) |
(scroll-up (car mouse-wheel-scroll-amount)) |
94 |
(scroll-down mouse-wheel-scroll-amount)) |
(scroll-down (car mouse-wheel-scroll-amount))) |
95 |
(error nil))) |
(error nil))) |
96 |
|
|
97 |
;; for scroll-in-place.el, this way the -scroll-line and -scroll-screen |
;; for scroll-in-place.el, this way the -scroll-line and -scroll-screen |