53 |
(set-default var button) |
(set-default var button) |
54 |
(when active (mouse-wheel-mode 1)))) |
(when active (mouse-wheel-mode 1)))) |
55 |
|
|
56 |
(defvar mouse-wheel-down-button 4 |
(defvar mouse-wheel-down-button 4) |
57 |
"Obsolete. Use `mouse-wheel-down-event'.") |
(make-obsolete-variable 'mouse-wheel-down-button |
58 |
|
'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") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
65 |
:type 'symbol |
:type 'symbol |
66 |
:set 'mouse-wheel-change-button) |
:set 'mouse-wheel-change-button) |
67 |
|
|
68 |
(defvar mouse-wheel-up-button 5 |
(defvar mouse-wheel-up-button 5) |
69 |
"Obsolete. Use `mouse-wheel-up-event'.") |
(make-obsolete-variable 'mouse-wheel-up-button |
70 |
|
'mouse-wheel-up-event) |
71 |
(defcustom mouse-wheel-up-event |
(defcustom mouse-wheel-up-event |
72 |
;; 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. |
73 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
77 |
:type 'symbol |
:type 'symbol |
78 |
:set 'mouse-wheel-change-button) |
:set 'mouse-wheel-change-button) |
79 |
|
|
80 |
(defvar mouse-wheel-click-button 2 |
(defvar mouse-wheel-click-button 2) |
81 |
"Obsolete. Use `mouse-wheel-click-event'.") |
(make-obsolete-variable 'mouse-wheel-click-button |
82 |
|
'mouse-wheel-click-event) |
83 |
(defcustom mouse-wheel-click-event |
(defcustom mouse-wheel-click-event |
84 |
;; 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. |
85 |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |