From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 5 Jun 1995 17:36:29 +0000 (+0000)
Subject: (mouse-set-region): Don't bounce the cursor on X.
X-Git-Tag: emacs-19.34~3780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=33a3543461e21301aad2b648b8ce67d3cfaed773;p=emacs.git

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