Mercurial > emacs
changeset 36134:0d7ea691acc4
(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.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Fri, 16 Feb 2001 15:54:48 +0000 |
| parents | 6eb00bee0989 |
| children | 0bfa71b66dd3 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)))