58 |
'mouse-wheel-down-event) |
'mouse-wheel-down-event) |
59 |
(defcustom mouse-wheel-down-event |
(defcustom mouse-wheel-down-event |
60 |
;; 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. |
61 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(if (eq system-type 'windows-nt) |
62 |
mouse-wheel-down-button)) |
'wheel-up |
63 |
|
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
64 |
|
mouse-wheel-down-button))) |
65 |
"Event used for scrolling down." |
"Event used for scrolling down." |
66 |
:group 'mouse |
:group 'mouse |
67 |
:type 'symbol |
:type 'symbol |
72 |
'mouse-wheel-up-event) |
'mouse-wheel-up-event) |
73 |
(defcustom mouse-wheel-up-event |
(defcustom mouse-wheel-up-event |
74 |
;; 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. |
75 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(if (eq system-type 'windows-nt) |
76 |
mouse-wheel-up-button)) |
'wheel-down |
77 |
|
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
78 |
|
mouse-wheel-up-button))) |
79 |
"Event used for scrolling down." |
"Event used for scrolling down." |
80 |
:group 'mouse |
:group 'mouse |
81 |
:type 'symbol |
:type 'symbol |