From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 15 Sep 1996 02:17:49 +0000 (+0000)
Subject: (mouse-set-region):
X-Git-Tag: emacs-20.1~3743
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1917b9694ab8c4f6b241fa1dcd74b01726b7f555;p=emacs.git

(mouse-set-region):
Test for ms-windows instead of win32, and use memq.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index c7f333c8332..8da7095bada 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -401,9 +401,7 @@ This should be bound to a mouse drag event."
     ;; If mark is highlighted, no need to bounce the cursor.
     ;; On X, we highlight while dragging, thus once again no need to bounce.
     (or transient-mark-mode
-	(eq (framep (selected-frame)) 'x)
-	(eq (framep (selected-frame)) 'pc)
-	(eq (framep (selected-frame)) 'win32)
+	(memq (framep (selected-frame)) '(x pc ms-windows))
 	(sit-for 1))
     (push-mark)
     (set-mark (point))