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 | cad641ec35635cbf1c67f67828731f76b7867e14 (patch) | |
| tree | f0b299412e421f50b515785269d49a52fb6eeaa4 /lisp | |
| parent | c3d6a20d0dc6dfc3f9792812b448cf47ba1c8db1 (diff) | |
| download | emacs-cad641ec35635cbf1c67f67828731f76b7867e14.tar.gz | |
(mouse-set-region):
Test for ms-windows instead of win32, and use memq.
Diffstat (limited to 'lisp')
| -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)) |