diff options
| -rw-r--r-- | lisp/mouse.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index d261f97df56..351d307361f 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -428,8 +428,12 @@ This variable's value may be non-integral. | |||
| 428 | Setting this to zero causes Emacs to scroll as fast as it can.") | 428 | Setting this to zero causes Emacs to scroll as fast as it can.") |
| 429 | 429 | ||
| 430 | (defvar mouse-scroll-min-lines 1 | 430 | (defvar mouse-scroll-min-lines 1 |
| 431 | "*The minimum number of lines scrolled at a time by dragging the mouse | 431 | "*The minimum number of lines scrolled by dragging mouse out of window. |
| 432 | beyond the edge of a window.") | 432 | Moving the mouse out the top or bottom edge of the window begins |
| 433 | scrolling repeatedly. The number of lines scrolled per repetition | ||
| 434 | is normally equal to the number of lines beyond the window edge that | ||
| 435 | the mouse has moved. However, it always scrolls at least the number | ||
| 436 | of lines specified by this variable.") | ||
| 433 | 437 | ||
| 434 | (defun mouse-scroll-subr (window jump &optional overlay start) | 438 | (defun mouse-scroll-subr (window jump &optional overlay start) |
| 435 | "Scroll the window WINDOW, JUMP lines at a time, until new input arrives. | 439 | "Scroll the window WINDOW, JUMP lines at a time, until new input arrives. |