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

1 files changed, 1 insertions, 1 deletions

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)))