diff options
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 2a467aa8069..865b5e96297 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -1068,8 +1068,7 @@ If MODE is 2 then do the same for lines." | |||
| 1068 | (unless ignore | 1068 | (unless ignore |
| 1069 | ;; For certain special keys, delete the region. | 1069 | ;; For certain special keys, delete the region. |
| 1070 | (if (member key mouse-region-delete-keys) | 1070 | (if (member key mouse-region-delete-keys) |
| 1071 | (delete-region (overlay-start mouse-drag-overlay) | 1071 | (delete-region (mark t) (point)) |
| 1072 | (overlay-end mouse-drag-overlay)) | ||
| 1073 | ;; Otherwise, unread the key so it gets executed normally. | 1072 | ;; Otherwise, unread the key so it gets executed normally. |
| 1074 | (setq unread-command-events | 1073 | (setq unread-command-events |
| 1075 | (nconc events unread-command-events)))) | 1074 | (nconc events unread-command-events)))) |