mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Fix bug of 'mouse-drag-and-drop-region' to detect edges of region (Bug#31905)

Browse source 
* lisp/mouse.el (mouse-drag-and-drop-region): Detect both the
beginning and the end of character of region during dragging
text.
This commit is contained in:
Tak Kunihiro 2018-06-20 09:27:50 +02:00 • committed by Martin Rudalics
parent e292c0973c
commit d289e7e38a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mouse.el
View file

@ -2515,9 +2515,9 @@ is copied instead of being cut."
(setq drag-but-negligible (setq drag-but-negligible
(and (eq (overlay-buffer mouse-drag-and-drop-overlay) (and (eq (overlay-buffer mouse-drag-and-drop-overlay)
buffer-to-paste) 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 (<= point-to-paste
(overlay-end mouse-drag-and-drop-overlay))))) (overlay-end mouse-drag-and-drop-overlay)))))
;; Show a tooltip. ;; Show a tooltip.