diff options
| author | Richard M. Stallman <[email protected]> | 2004-11-04 10:02:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2004-11-04 10:02:38 +0000 |
| commit | 9e6856a7a4c07f3cb009768554e81624615c570c (patch) | |
| tree | 76bc9b09fcad5c84f7d77aec2e8e6fde72bcf1f5 /lisp/mouse.el | |
| parent | 977bbd4d38382bd0c9322b8d6f01216d3753d8a3 (diff) | |
(mouse-show-mark): Get positions to delete from mark
and point, not from mouse-drag-overlay.
Diffstat (limited to 'lisp/mouse.el')
| -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 2a467aa806..865b5e9629 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -1068,8 +1068,7 @@ If MODE is 2 then do the same for lines." (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)))) |