diff options
| -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." | |||
| 185 | (defvar mwheel-scroll-down-function 'scroll-down | 185 | (defvar mwheel-scroll-down-function 'scroll-down |
| 186 | "Function that does the job of scrolling downward.") | 186 | "Function that does the job of scrolling downward.") |
| 187 | 187 | ||
| 188 | (defvar mwheel-scroll-left-function 'scroll-left | ||
| 189 | "Function that does the job of scrolling left.") | ||
| 190 | |||
| 191 | (defvar mwheel-scroll-right-function 'scroll-right | ||
| 192 | "Function that does the job of scrolling right.") | ||
| 193 | |||
| 188 | (defun mwheel-scroll (event) | 194 | (defun mwheel-scroll (event) |
| 189 | "Scroll up or down according to the EVENT. | 195 | "Scroll up or down according to the EVENT. |
| 190 | This should be bound only to mouse buttons 4, 5, 6, and 7 on | 196 | 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 | :type 'boolean | 342 | :type 'boolean |
| 337 | :version "26.1") | 343 | :version "26.1") |
| 338 | 344 | ||
| 339 | (defcustom mwheel-scroll-left-function 'scroll-left | ||
| 340 | "Function that does the job of scrolling left." | ||
| 341 | :group 'mouse | ||
| 342 | :type 'function | ||
| 343 | :version "26.1") | ||
| 344 | |||
| 345 | (defcustom mwheel-scroll-right-function 'scroll-right | ||
| 346 | "Function that does the job of scrolling right." | ||
| 347 | :group 'mouse | ||
| 348 | :type 'function | ||
| 349 | :version "26.1") | ||
| 350 | |||
| 351 | (defvar mouse-wheel-left-event | 345 | (defvar mouse-wheel-left-event |
| 352 | (if (or (featurep 'w32-win) (featurep 'ns-win)) | 346 | (if (or (featurep 'w32-win) (featurep 'ns-win)) |
| 353 | 'wheel-left | 347 | 'wheel-left |