59 |
'mouse-wheel-down-event) |
'mouse-wheel-down-event) |
60 |
(defcustom mouse-wheel-down-event |
(defcustom mouse-wheel-down-event |
61 |
;; 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. |
62 |
(if (memq window-system '(w32 mac)) |
(if (memq system-type '(windows-nt macos)) |
63 |
'wheel-up |
'wheel-up |
64 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
65 |
mouse-wheel-down-button))) |
mouse-wheel-down-button))) |
73 |
'mouse-wheel-up-event) |
'mouse-wheel-up-event) |
74 |
(defcustom mouse-wheel-up-event |
(defcustom mouse-wheel-up-event |
75 |
;; 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. |
76 |
(if (memq window-system '(w32 mac)) |
(if (memq system-type '(windows-nt macos)) |
77 |
'wheel-down |
'wheel-down |
78 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
79 |
mouse-wheel-up-button))) |
mouse-wheel-up-button))) |