(mouse-show-mark): Get positions to delete from mark

and point, not from mouse-drag-overlay.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 2a467aa8069bedf25ca9d6758f8e9dc1fec23381..865b5e96297f24362377618860a42538bbd7c5b1 100644 (file)
--- 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))))