From: Gerd Moellmann <gerd@gnu.org>
Date: Fri, 16 Feb 2001 15:54:48 +0000 (+0000)
Subject: (mouse-save-then-kill): If the distance from the new
X-Git-Tag: emacs-pretest-21.0.99~349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed784c53bc13693e975a597f32c579914579d8a9;p=emacs.git

(mouse-save-then-kill): If the distance from the new
point to the mark is equal to the distance of point from the new
point, move point instead of the mark.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 7b9debc7b09..ddb0ead03d2 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1176,7 +1176,7 @@ If you do this twice in the same position, the selection is killed."
 		    (progn
 		      ;; Move whichever end of the region is closer to the click.
 		      ;; That is what xterm does, and it seems reasonable.
-		      (if (< (abs (- new (point))) (abs (- new (mark t))))
+		      (if (<= (abs (- new (point))) (abs (- new (mark t))))
 			  (goto-char new)
 			(set-mark new))
 		      (setq deactivate-mark nil)))