Mercurial > emacs
comparison lisp/mouse.el @ 16201:14f248aae1e0
(mouse-set-region):
Test for ms-windows instead of win32, and use memq.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 15 Sep 1996 02:17:49 +0000 |
| parents | 26b552f014ff |
| children | ba59fb4dd237 |
comparison
equal
deleted
inserted
replaced
| 16200:a4588c1facee | 16201:14f248aae1e0 |
|---|---|
| 399 (if (numberp (posn-point posn)) | 399 (if (numberp (posn-point posn)) |
| 400 (goto-char (posn-point posn))) | 400 (goto-char (posn-point posn))) |
| 401 ;; If mark is highlighted, no need to bounce the cursor. | 401 ;; If mark is highlighted, no need to bounce the cursor. |
| 402 ;; On X, we highlight while dragging, thus once again no need to bounce. | 402 ;; On X, we highlight while dragging, thus once again no need to bounce. |
| 403 (or transient-mark-mode | 403 (or transient-mark-mode |
| 404 (eq (framep (selected-frame)) 'x) | 404 (memq (framep (selected-frame)) '(x pc ms-windows)) |
| 405 (eq (framep (selected-frame)) 'pc) | |
| 406 (eq (framep (selected-frame)) 'win32) | |
| 407 (sit-for 1)) | 405 (sit-for 1)) |
| 408 (push-mark) | 406 (push-mark) |
| 409 (set-mark (point)) | 407 (set-mark (point)) |
| 410 (if (numberp (posn-point end)) | 408 (if (numberp (posn-point end)) |
| 411 (goto-char (posn-point end))) | 409 (goto-char (posn-point end))) |