Commit 0213c8bf authored by Glenn Morris's avatar Glenn Morris
Browse files

mwheel minor consistency fix

* lisp/mwheel.el (mwheel-scroll-left-function)
(mwheel-scroll-right-function):
Change from defcustom to defvar, for consistency with pre-existing.
parent 82f12b2f
...@@ -185,6 +185,12 @@ This can be slightly disconcerting, but some people prefer it." ...@@ -185,6 +185,12 @@ This can be slightly disconcerting, but some people prefer it."
(defvar mwheel-scroll-down-function 'scroll-down (defvar mwheel-scroll-down-function 'scroll-down
"Function that does the job of scrolling downward.") "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) (defun mwheel-scroll (event)
"Scroll up or down according to the EVENT. "Scroll up or down according to the EVENT.
This should be bound only to mouse buttons 4, 5, 6, and 7 on 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." ...@@ -336,18 +342,6 @@ the mode if ARG is omitted or nil."
:type 'boolean :type 'boolean
:version "26.1") :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 (defvar mouse-wheel-left-event
(if (or (featurep 'w32-win) (featurep 'ns-win)) (if (or (featurep 'w32-win) (featurep 'ns-win))
'wheel-left 'wheel-left
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment