diff options
author | Gerd Moellmann <[email protected]> | 2001-02-16 15:54:48 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2001-02-16 15:54:48 +0000 |
commit | ed784c53bc13693e975a597f32c579914579d8a9 (patch) | |
tree | ce53246283486de53879968f275fae4c40a7b95d | |
parent | 1c686c993f360d11949e8ca95300a9fa5d0c885f (diff) |
(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.
-rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 7b9debc7b0..ddb0ead03d 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))) |