# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 982338888 0
# Node ID 0d7ea691acc42aae18c30d820ba8f3a7814abac4
# Parent  6eb00bee0989b04a1370f5e6a1a82aa506c493ee
(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 -r 6eb00bee0989 -r 0d7ea691acc4 lisp/mouse.el
--- a/lisp/mouse.el	Fri Feb 16 15:50:33 2001 +0000
+++ b/lisp/mouse.el	Fri Feb 16 15:54:48 2001 +0000
@@ -1176,7 +1176,7 @@
 		    (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)))