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