Mercurial > emacs
changeset 57927:ba164890f661
(mouse-show-mark): Get positions to delete from mark
and point, not from mouse-drag-overlay.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 04 Nov 2004 10:02:38 +0000 |
| parents | f697668630d7 |
| children | fad95a27e1d8 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 1 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Nov 04 10:00:53 2004 +0000 +++ b/lisp/mouse.el Thu Nov 04 10:02:38 2004 +0000 @@ -1068,8 +1068,7 @@ (unless ignore ;; For certain special keys, delete the region. (if (member key mouse-region-delete-keys) - (delete-region (overlay-start mouse-drag-overlay) - (overlay-end mouse-drag-overlay)) + (delete-region (mark t) (point)) ;; Otherwise, unread the key so it gets executed normally. (setq unread-command-events (nconc events unread-command-events))))