Mercurial > emacs
comparison lisp/mouse.el @ 96675:d45acf0c8d23
merging Emacs.app (NeXTstep port)
| author | Adrian Robert <Adrian.B.Robert@gmail.com> |
|---|---|
| date | Tue, 15 Jul 2008 18:15:18 +0000 |
| parents | c3309dba6542 |
| children | 9592c50233ab |
comparison
equal
deleted
inserted
replaced
| 96674:ff312a846b25 | 96675:d45acf0c8d23 |
|---|---|
| 671 (if (numberp (posn-point posn)) | 671 (if (numberp (posn-point posn)) |
| 672 (goto-char (posn-point posn))) | 672 (goto-char (posn-point posn))) |
| 673 ;; If mark is highlighted, no need to bounce the cursor. | 673 ;; If mark is highlighted, no need to bounce the cursor. |
| 674 ;; On X, we highlight while dragging, thus once again no need to bounce. | 674 ;; On X, we highlight while dragging, thus once again no need to bounce. |
| 675 (or transient-mark-mode | 675 (or transient-mark-mode |
| 676 (memq (framep (selected-frame)) '(x pc w32 mac)) | 676 (memq (framep (selected-frame)) '(x pc w32 mac ns)) |
| 677 (sit-for 1)) | 677 (sit-for 1)) |
| 678 (push-mark) | 678 (push-mark) |
| 679 (set-mark (point)) | 679 (set-mark (point)) |
| 680 (if (numberp (posn-point end)) | 680 (if (numberp (posn-point end)) |
| 681 (goto-char (posn-point end))) | 681 (goto-char (posn-point end))) |