Mercurial > emacs
changeset 12078:eb9f9e9cd522
(mouse-set-region): Don't bounce the cursor on X.
mouse-drag-region takes care of showing it, sufficiently.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 05 Jun 1995 17:36:29 +0000 |
| parents | 74b296435fd9 |
| children | f6e8c75cca52 |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Mon Jun 05 17:35:01 1995 +0000 +++ b/lisp/mouse.el Mon Jun 05 17:36:29 1995 +0000 @@ -315,8 +315,9 @@ (if (numberp (posn-point posn)) (goto-char (posn-point posn))) ;; If mark is highlighted, no need to bounce the cursor. - (or (and transient-mark-mode - (framep (selected-frame))) + ;; On X, we highlight while dragging, thus once again no need to bounce. + (or transient-mark-mode + (eq (framep (selected-frame)) 'x) (sit-for 1)) (push-mark) (set-mark (point))