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))) |