From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 4 Nov 2004 10:02:38 +0000 (+0000)
Subject: (mouse-show-mark): Get positions to delete from mark
X-Git-Tag: ttn-vms-21-2-B4~4204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9e6856a7a4c07f3cb009768554e81624615c570c;p=emacs.git

(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 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."
     (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))))