diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mwheel.el | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 7107d64aa1a..498fcbcf5c9 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el @@ -185,6 +185,12 @@ 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 mwheel-scroll-left-function 'scroll-left + "Function that does the job of scrolling left.") + +(defvar mwheel-scroll-right-function 'scroll-right + "Function that does the job of 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 @@ -336,18 +342,6 @@ the mode if ARG is omitted or nil." :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 |