# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 802373789 0
# Node ID eb9f9e9cd52211444e995932f9ce39125f5cf1a0
# Parent  74b296435fd9c44c5b507bb5e9eb60bc7a06aa6a
(mouse-set-region): Don't bounce the cursor on X.
mouse-drag-region takes care of showing it, sufficiently.

diff -r 74b296435fd9 -r eb9f9e9cd522 lisp/mouse.el
--- 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))