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

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index d589ae48fc1ba4c0b2586a0ed1fd654aa8114895..bdaf3c28962b0c558582502fbb0637d0abeadb90 100644 (file)
--- 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))