mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

(mouse-save-then-kill): If the distance from the new

Browse Source 
point to the mark is equal to the distance of point from the new
point, move point instead of the mark.
This commit is contained in:
Gerd Moellmann 2001-02-16 15:54:48 +00:00
parent 1c686c993f
commit ed784c53bc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mouse.el
View File

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