diff options
| author | Tak Kunihiro | 2018-06-20 09:27:50 +0200 |
|---|---|---|
| committer | Martin Rudalics | 2018-06-20 09:27:50 +0200 |
| commit | d289e7e38a4769fad8a3390721f75d996d0e07b4 (patch) | |
| tree | ca84921820cb4f82d832a1ffec00ab8a835b18e3 | |
| parent | e292c0973cf7a92819d312ea8a828b67e6adf1ab (diff) | |
| download | emacs-d289e7e38a4769fad8a3390721f75d996d0e07b4.tar.gz emacs-d289e7e38a4769fad8a3390721f75d996d0e07b4.zip | |
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.
| -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." | |||
| 2515 | (setq drag-but-negligible | 2515 | (setq drag-but-negligible |
| 2516 | (and (eq (overlay-buffer mouse-drag-and-drop-overlay) | 2516 | (and (eq (overlay-buffer mouse-drag-and-drop-overlay) |
| 2517 | buffer-to-paste) | 2517 | buffer-to-paste) |
| 2518 | (< (overlay-start mouse-drag-and-drop-overlay) | 2518 | (<= (overlay-start mouse-drag-and-drop-overlay) |
| 2519 | point-to-paste) | 2519 | point-to-paste) |
| 2520 | (< point-to-paste | 2520 | (<= point-to-paste |
| 2521 | (overlay-end mouse-drag-and-drop-overlay))))) | 2521 | (overlay-end mouse-drag-and-drop-overlay))))) |
| 2522 | 2522 | ||
| 2523 | ;; Show a tooltip. | 2523 | ;; Show a tooltip. |