Mercurial > emacs
comparison lisp/mouse.el @ 15116:a152ab5c09b0
(mouse-drag-region): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 30 Apr 1996 16:11:53 +0000 |
| parents | bd6c6923b90e |
| children | a00021443533 |
comparison
equal
deleted
inserted
replaced
| 15115:dd31d59ec31b | 15116:a152ab5c09b0 |
|---|---|
| 483 | 483 |
| 484 (defun mouse-drag-region (start-event) | 484 (defun mouse-drag-region (start-event) |
| 485 "Set the region to the text that the mouse is dragged over. | 485 "Set the region to the text that the mouse is dragged over. |
| 486 Highlight the drag area as you move the mouse. | 486 Highlight the drag area as you move the mouse. |
| 487 This must be bound to a button-down mouse event. | 487 This must be bound to a button-down mouse event. |
| 488 In Transient Mark mode, the highlighting remains once you | 488 In Transient Mark mode, the highlighting remains as long as the mark |
| 489 release the mouse button. Otherwise, it does not." | 489 remains active. Otherwise, it remains until the next input event." |
| 490 (interactive "e") | 490 (interactive "e") |
| 491 (mouse-minibuffer-check start-event) | 491 (mouse-minibuffer-check start-event) |
| 492 (let* ((echo-keystrokes 0) | 492 (let* ((echo-keystrokes 0) |
| 493 (start-posn (event-start start-event)) | 493 (start-posn (event-start start-event)) |
| 494 (start-point (posn-point start-posn)) | 494 (start-point (posn-point start-posn)) |