; * lisp/mouse.el (mouse-drag-and-drop-region-scroll-margin): Fix type.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 5e56a9e9727f5e85a20bb1a8a6b42cd98cfe90bc..3f43b39079dbe1f01f593c2549b1b16c4f06b322 100644 (file)
--- 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)