From 1917b9694ab8c4f6b241fa1dcd74b01726b7f555 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 15 Sep 1996 02:17:49 +0000 Subject: [PATCH] (mouse-set-region): Test for ms-windows instead of win32, and use memq. --- lisp/mouse.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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)) -- 2.39.2