From d289e7e38a4769fad8a3390721f75d996d0e07b4 Mon Sep 17 00:00:00 2001 From: Tak Kunihiro Date: Wed, 20 Jun 2018 09:27:50 +0200 Subject: [PATCH] Fix bug of 'mouse-drag-and-drop-region' to detect edges of region (Bug#31905) * lisp/mouse.el (mouse-drag-and-drop-region): Detect both the beginning and the end of character of region during dragging text. --- lisp/mouse.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index 5c9056fb43d..f749d12054b 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -2515,9 +2515,9 @@ is copied instead of being cut." (setq drag-but-negligible (and (eq (overlay-buffer mouse-drag-and-drop-overlay) buffer-to-paste) - (< (overlay-start mouse-drag-and-drop-overlay) + (<= (overlay-start mouse-drag-and-drop-overlay) point-to-paste) - (< point-to-paste + (<= point-to-paste (overlay-end mouse-drag-and-drop-overlay))))) ;; Show a tooltip. -- 2.39.5