(mouse-set-region): Don't bounce the cursor on X.

mouse-drag-region takes care of showing it, sufficiently.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d589ae48fc1..bdaf3c28962 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -315,8 +315,9 @@ This should be bound to a mouse drag event."
     (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))