diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-02 14:53:06 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-02 14:53:06 -0500 |
| commit | 0213c8bf472b196d995d92a52b44458ac8226e42 (patch) | |
| tree | 824bcb13c2adac1fbbff4783505dcf4d2da5fb5b /lisp/mwheel.el | |
| parent | 82f12b2f13780248fac6ce4591cf9ed8d62a41f1 (diff) | |
| download | emacs-0213c8bf472b196d995d92a52b44458ac8226e42.tar.gz | |
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.
Diffstat (limited to 'lisp/mwheel.el')
| -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 |