[Emacs-diffs] emacs-26 0213c8b: mwheel minor consistency fix

[Glenn Morris]

branch: emacs-26
commit 0213c8bf472b196d995d92a52b44458ac8226e42
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    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.
---
 lisp/mwheel.el | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 7107d64..498fcbc 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