# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 842753869 0
# Node ID 14f248aae1e0aa36585dc4cd05aa2535fce0cad5
# Parent  a4588c1facee7f72fb733a75e18b17fea3b7a7a9
(mouse-set-region):
Test for ms-windows instead of win32, and use memq.

diff -r a4588c1facee -r 14f248aae1e0 lisp/mouse.el
--- a/lisp/mouse.el	Sun Sep 15 02:16:57 1996 +0000
+++ b/lisp/mouse.el	Sun Sep 15 02:17:49 1996 +0000
@@ -401,9 +401,7 @@
     ;; 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))