64 |
:set 'mouse-wheel-change-button) |
:set 'mouse-wheel-change-button) |
65 |
|
|
66 |
(defcustom mouse-wheel-up-button 5 |
(defcustom mouse-wheel-up-button 5 |
67 |
"Obsolete. Use `mouse-whell-up-event'.") |
"Obsolete. Use `mouse-wheel-up-event'.") |
68 |
(defcustom mouse-wheel-up-event |
(defcustom mouse-wheel-up-event |
69 |
;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
70 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
133 |
mouse-wheel-up-event |
mouse-wheel-up-event |
134 |
mouse-wheel-down-event)) |
mouse-wheel-down-event)) |
135 |
x))) |
x))) |
136 |
(fset 'mwheel-event-button 'event-button)) |
(fset 'mwheel-event-button 'event-button)) |
137 |
|
|
138 |
(if (not (fboundp 'event-window)) |
(if (not (fboundp 'event-window)) |
139 |
(defun mwheel-event-window (event) |
(defun mwheel-event-window (event) |