Mercurial > emacs
comparison lisp/mouse.el @ 12078:eb9f9e9cd522
(mouse-set-region): Don't bounce the cursor on X.
mouse-drag-region takes care of showing it, sufficiently.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 05 Jun 1995 17:36:29 +0000 |
parents | 18e97591e9bd |
children | 29b6db180047 |
comparison
equal
deleted
inserted
replaced
12077:74b296435fd9 | 12078:eb9f9e9cd522 |
---|---|
313 (end (event-end click))) | 313 (end (event-end click))) |
314 (select-window (posn-window posn)) | 314 (select-window (posn-window posn)) |
315 (if (numberp (posn-point posn)) | 315 (if (numberp (posn-point posn)) |
316 (goto-char (posn-point posn))) | 316 (goto-char (posn-point posn))) |
317 ;; If mark is highlighted, no need to bounce the cursor. | 317 ;; If mark is highlighted, no need to bounce the cursor. |
318 (or (and transient-mark-mode | 318 ;; On X, we highlight while dragging, thus once again no need to bounce. |
319 (framep (selected-frame))) | 319 (or transient-mark-mode |
320 (eq (framep (selected-frame)) 'x) | |
320 (sit-for 1)) | 321 (sit-for 1)) |
321 (push-mark) | 322 (push-mark) |
322 (set-mark (point)) | 323 (set-mark (point)) |
323 (if (numberp (posn-point end)) | 324 (if (numberp (posn-point end)) |
324 (goto-char (posn-point end))) | 325 (goto-char (posn-point end))) |