From 0213c8bf472b196d995d92a52b44458ac8226e42 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 2 Mar 2018 14:53:06 -0500 Subject: 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 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 -- cgit v1.2.1