From: Po Lu <luangruo@yahoo.com>
Date: Sat, 2 Apr 2022 07:48:57 +0000 (+0800)
Subject: ; * lisp/mouse.el (mouse-drag-and-drop-region-scroll-margin): Fix type.
X-Git-Tag: emacs-29.0.90~1931^2~824
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8a49b69abc0beb7eca4c4ccf18eefc52aaf7cee;p=emacs.git

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

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)