summaryrefslogtreecommitdiff
path: root/lisp/mwheel.el
diff options
context:
space:
mode:
authorGlenn Morris <rgm@gnu.org>2018-02-26 17:05:04 -0500
committerGlenn Morris <rgm@gnu.org>2018-02-26 17:05:04 -0500
commitfe9b612123cbcb74b79c3f8eb4043a1ad3ebb3a6 (patch)
treecd9cfe449b1abc37b813535ece8f37e9a082e4cc /lisp/mwheel.el
parentf1b2c2311768f6e5d8ad8e55c1daac37546c2f91 (diff)
downloademacs-fe9b612123cbcb74b79c3f8eb4043a1ad3ebb3a6.tar.gz
Quieten without-x mwheel.el compilation
* lisp/mwheel.el (mwheel-tilt-scroll-p, mwheel-flip-direction) (mwheel-scroll-left-function, mwheel-scroll-right-function) (mouse-wheel-left-event, mouse-wheel-right-event): Move definitions before use.
Diffstat (limited to 'lisp/mwheel.el')
-rw-r--r--lisp/mwheel.el77
1 files changed, 38 insertions, 39 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 9718ab87d39..cbd78137622 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -148,6 +148,32 @@ This can be slightly disconcerting, but some people prefer it."
:group 'mouse
:type 'boolean)
+;;; For tilt-scroll
+;;;
+(defcustom mwheel-tilt-scroll-p nil
+ "Enable scroll using tilting mouse wheel."
+ :group 'mouse
+ :type 'boolean
+ :version "26.1")
+
+(defcustom mwheel-flip-direction nil
+ "Swap direction of 'wheel-right and 'wheel-left."
+ :group 'mouse
+ :type 'boolean
+ :version "26.1")
+
+(defcustom mwheel-scroll-left-function 'scroll-left
+ "Function that does the job of scrolling left."
+ :group 'mouse
+ :type 'function
+ :version "26.1")
+
+(defcustom mwheel-scroll-right-function 'scroll-right
+ "Function that does the job of scrolling right."
+ :group 'mouse
+ :type 'function
+ :version "26.1")
+
(eval-and-compile
(if (fboundp 'event-button)
(fset 'mwheel-event-button 'event-button)
@@ -185,6 +211,18 @@ This can be slightly disconcerting, but some people prefer it."
(defvar mwheel-scroll-down-function 'scroll-down
"Function that does the job of scrolling downward.")
+(defvar mouse-wheel-left-event
+ (if (or (featurep 'w32-win) (featurep 'ns-win))
+ 'wheel-left
+ (intern "mouse-6"))
+ "Event used for scrolling left.")
+
+(defvar mouse-wheel-right-event
+ (if (or (featurep 'w32-win) (featurep 'ns-win))
+ 'wheel-right
+ (intern "mouse-7"))
+ "Event used for scrolling right.")
+
(defun mwheel-scroll (event)
"Scroll up or down according to the EVENT.
This should be bound only to mouse buttons 4, 5, 6, and 7 on
@@ -321,45 +359,6 @@ the mode if ARG is omitted or nil."
"Enable mouse wheel support."
(mouse-wheel-mode (if uninstall -1 1)))
-
-;;; For tilt-scroll
-;;;
-(defcustom mwheel-tilt-scroll-p nil
- "Enable scroll using tilting mouse wheel."
- :group 'mouse
- :type 'boolean
- :version "26.1")
-
-(defcustom mwheel-flip-direction nil
- "Swap direction of 'wheel-right and 'wheel-left."
- :group 'mouse
- :type 'boolean
- :version "26.1")
-
-(defcustom mwheel-scroll-left-function 'scroll-left
- "Function that does the job of scrolling left."
- :group 'mouse
- :type 'function
- :version "26.1")
-
-(defcustom mwheel-scroll-right-function 'scroll-right
- "Function that does the job of scrolling right."
- :group 'mouse
- :type 'function
- :version "26.1")
-
-(defvar mouse-wheel-left-event
- (if (or (featurep 'w32-win) (featurep 'ns-win))
- 'wheel-left
- (intern "mouse-6"))
- "Event used for scrolling left.")
-
-(defvar mouse-wheel-right-event
- (if (or (featurep 'w32-win) (featurep 'ns-win))
- 'wheel-right
- (intern "mouse-7"))
- "Event used for scrolling right.")
-
(provide 'mwheel)
;;; mwheel.el ends here