summaryrefslogtreecommitdiff
path: root/lisp/mouse.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-09-24 23:20:39 +0000
committerRichard M. Stallman <rms@gnu.org>1995-09-24 23:20:39 +0000
commit51285c757facb573a4dc4d091caf759ab87f5114 (patch)
treeb4a3f2c7bd096ac64a009d224a87271203d8d16b /lisp/mouse.el
parent1f2b847db386c95b33b26a0ce368d9882745af5f (diff)
downloademacs-51285c757facb573a4dc4d091caf759ab87f5114.tar.gz
[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.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r--lisp/mouse.el8
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.
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.