1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 5e56a9e9727..3f43b39079d 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -102,7 +102,8 @@ point at the click position."
 If the mouse moves this many lines close to the top or bottom of
 a window while dragging text, then that window will be scrolled
 down and up respectively."
-  :type 'integer
+  :type '(choice (const :tag "Don't scroll during mouse movement")
+                 (integer :tag "This many lines from window top or bottom"))
  :version "29.1")
 (defvar mouse--last-down nil)

diff --git a/lisp/mouse.el b/lisp/mouse.el index 5e56a9e9727..3f43b39079d 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el
@@ -102,7 +102,8 @@ point at the click position."
102	If the mouse moves this many lines close to the top or bottom of	102	If the mouse moves this many lines close to the top or bottom of
103	a window while dragging text, then that window will be scrolled	103	a window while dragging text, then that window will be scrolled
104	down and up respectively."	104	down and up respectively."
105	:type 'integer	105	:type '(choice (const :tag "Don't scroll during mouse movement")
		106	(integer :tag "This many lines from window top or bottom"))
106	:version "29.1")	107	:version "29.1")
107		108
108	(defvar mouse--last-down nil)	109	(defvar mouse--last-down nil)