diff options
| author | Tak Kunihiro <tkk@misasa.okayama-u.ac.jp> | 2018-06-20 09:27:50 +0200 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2018-06-20 09:27:50 +0200 |
| commit | d289e7e38a4769fad8a3390721f75d996d0e07b4 (patch) | |
| tree | ca84921820cb4f82d832a1ffec00ab8a835b18e3 /lisp | |
| parent | e292c0973cf7a92819d312ea8a828b67e6adf1ab (diff) | |
| download | emacs-d289e7e38a4769fad8a3390721f75d996d0e07b4.tar.gz | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files 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. |