Mercurial > emacs
comparison lisp/mouse.el @ 13431:5ac58afd6c8c
mouse.el [win32] (mouse-set-region):
Test for 'win32 window system as well as 'x.
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Tue, 07 Nov 1995 07:47:47 +0000 |
| parents | 84acc3adcd63 |
| children | cc995a858ce1 |
comparison
equal
deleted
inserted
replaced
| 13430:abcf51439209 | 13431:5ac58afd6c8c |
|---|---|
| 400 ;; If mark is highlighted, no need to bounce the cursor. | 400 ;; If mark is highlighted, no need to bounce the cursor. |
| 401 ;; On X, we highlight while dragging, thus once again no need to bounce. | 401 ;; On X, we highlight while dragging, thus once again no need to bounce. |
| 402 (or transient-mark-mode | 402 (or transient-mark-mode |
| 403 (eq (framep (selected-frame)) 'x) | 403 (eq (framep (selected-frame)) 'x) |
| 404 (eq (framep (selected-frame)) 'pc) | 404 (eq (framep (selected-frame)) 'pc) |
| 405 (eq (framep (selected-frame)) 'win32) | |
| 405 (sit-for 1)) | 406 (sit-for 1)) |
| 406 (push-mark) | 407 (push-mark) |
| 407 (set-mark (point)) | 408 (set-mark (point)) |
| 408 (if (numberp (posn-point end)) | 409 (if (numberp (posn-point end)) |
| 409 (goto-char (posn-point end))) | 410 (goto-char (posn-point end))) |