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

2022-04-02 15:48:57 +08:00
parent e351e9037c
commit c8a49b69ab
1 changed files with 2 additions and 1 deletions
--- 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)