Mercurial > emacs
comparison lisp/mouse.el @ 4532:c2afed091afb
(mouse-drag-region): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 10 Aug 1993 17:03:06 +0000 |
| parents | 8362b57424dc |
| children | cf541ed1fed8 |
comparison
equal
deleted
inserted
replaced
| 4531:899976225848 | 4532:c2afed091afb |
|---|---|
| 156 (defvar mouse-drag-overlay (make-overlay 1 1)) | 156 (defvar mouse-drag-overlay (make-overlay 1 1)) |
| 157 (overlay-put mouse-drag-overlay 'face 'region) | 157 (overlay-put mouse-drag-overlay 'face 'region) |
| 158 | 158 |
| 159 (defun mouse-drag-region (start-event) | 159 (defun mouse-drag-region (start-event) |
| 160 "Set the region to the text that the mouse is dragged over. | 160 "Set the region to the text that the mouse is dragged over. |
| 161 Highlight the drag area as the user moves the mouse. | 161 Highlight the drag area as you move the mouse. |
| 162 This must be bound to a button-down mouse event." | 162 This must be bound to a button-down mouse event. |
| 163 In Transient Mark mode, the highlighting remains once you | |
| 164 release the mouse button. Otherwise, it does not." | |
| 163 (interactive "e") | 165 (interactive "e") |
| 164 (let* ((start-posn (event-start start-event)) | 166 (let* ((start-posn (event-start start-event)) |
| 165 (start-point (posn-point start-posn)) | 167 (start-point (posn-point start-posn)) |
| 166 (start-window (posn-window start-posn)) | 168 (start-window (posn-window start-posn)) |
| 167 (start-frame (window-frame start-window)) | 169 (start-frame (window-frame start-window)) |