# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099562558 0
# Node ID ba164890f66125bbd2206ed51190928a59a9f62b
# Parent  f697668630d7e6422dd002db51cdb2e2717ed15b
(mouse-show-mark): Get positions to delete from mark
and point, not from mouse-drag-overlay.

diff -r f697668630d7 -r ba164890f661 lisp/mouse.el
--- 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))))