diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-09-15 02:17:49 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-09-15 02:17:49 +0000 |
| commit | 1917b9694ab8c4f6b241fa1dcd74b01726b7f555 (patch) | |
| tree | 6b53d39bd79bd5a8b6b3c2632fcdb0586707b6ad /lisp/mouse.el | |
| parent | bc5155cdb1360cc94c3a344cfbbe0f38f2748865 (diff) | |
| download | emacs-1917b9694ab8c4f6b241fa1dcd74b01726b7f555.tar.gz | |
(mouse-set-region):
Test for ms-windows instead of win32, and use memq.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 4 |
1 files changed, 1 insertions, 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)) |