From: Richard M. Stallman Date: Sun, 24 Sep 1995 23:20:39 +0000 (+0000) Subject: [These changes were actually in the previous version. X-Git-Tag: emacs-19.34~2792 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3d6bb976dc4459d5f305758ecc5ebdb861e9e2d;p=emacs.git [These changes were actually in the previous version. This version is a doc fix.] (mouse-drag-vertical-line): New function. (mouse-scroll-min-lines): New variable. (mouse-scroll-subr): Use it. (mouse-drag-region): Record where the mouse drag has reached and use that to adjust the drag event before replaying it. (mouse-drag-region): Store the right end position in the drag-event before replaying it at the end. (mouse-skip-word): Skip complete symbol when over a character with symbol syntax. --- 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. Setting this to zero causes Emacs to scroll as fast as it can.") (defvar mouse-scroll-min-lines 1 - "*The minimum number of lines scrolled at a time by dragging the mouse -beyond the edge of a window.") + "*The minimum number of lines scrolled by dragging mouse out of window. +Moving the mouse out the top or bottom edge of the window begins +scrolling repeatedly. The number of lines scrolled per repetition +is normally equal to the number of lines beyond the window edge that +the mouse has moved. However, it always scrolls at least the number +of lines specified by this variable.") (defun mouse-scroll-subr (window jump &optional overlay start) "Scroll the window WINDOW, JUMP lines at a time, until new input arrives.