From 18a1c7de2e4278493a4ff6dff6add310869b5070 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Tue, 14 Jun 2022 17:43:08 +0800 Subject: [PATCH] Fix mishandling of dnd-scroll-margin with scroll bar motion * lisp/dnd.el (dnd-handle-movement): Ignore posns inside scroll bars for now. --- lisp/dnd.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/dnd.el b/lisp/dnd.el index 7eb43f5baab..9d72a4b5958 100644 --- a/lisp/dnd.el +++ b/lisp/dnd.el @@ -112,7 +112,9 @@ program." "Handle mouse movement to POSN when receiving a drop from another program." (when (windowp (posn-window posn)) (with-selected-window (posn-window posn) - (when dnd-scroll-margin + (when (and dnd-scroll-margin + ;; TODO: handle scroll bars reasonably. + (not (posn-area posn))) (ignore-errors (let* ((row (cdr (posn-col-row posn))) (window (when (windowp (posn-window posn)) -- 2.39.2