diff options
| author | Richard M. Stallman | 1994-05-04 00:38:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-04 00:38:14 +0000 |
| commit | 7bbe2cc79417a40c2a1dcb2096f22adaf14431f0 (patch) | |
| tree | 0179590d09558aa512b0c0a99aadd7a01d9fff55 | |
| parent | 30ff174e24a97579d3f98baab26464e654a65f82 (diff) | |
| download | emacs-7bbe2cc79417a40c2a1dcb2096f22adaf14431f0.tar.gz emacs-7bbe2cc79417a40c2a1dcb2096f22adaf14431f0.zip | |
(mouse-secondary-save-then-kill): Doc fix.
| -rw-r--r-- | lisp/mouse.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 232ad378466..16ba5dea6b9 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -707,15 +707,17 @@ is to prevent accidents." | |||
| 707 | 707 | ||
| 708 | (defun mouse-secondary-save-then-kill (click) | 708 | (defun mouse-secondary-save-then-kill (click) |
| 709 | "Save text to point in kill ring; the second time, kill the text. | 709 | "Save text to point in kill ring; the second time, kill the text. |
| 710 | If the text between point and the mouse is the same as what's | 710 | You must use this in a buffer where you have recently done \\[mouse-start-secondary]. |
| 711 | at the front of the kill ring, this deletes the text. | 711 | If the text between where you did \\[mouse-start-secondary] and where |
| 712 | you use this command matches the text at the front of the kill ring, | ||
| 713 | this command deletes the text. | ||
| 712 | Otherwise, it adds the text to the kill ring, like \\[kill-ring-save], | 714 | Otherwise, it adds the text to the kill ring, like \\[kill-ring-save], |
| 713 | which prepares for a second click to delete the text. | 715 | which prepares for a second click with this command to delete the text. |
| 714 | 716 | ||
| 715 | If you have selected words or lines, this command extends the | 717 | If you have already made a secondary selection in that buffer, |
| 716 | selection through the word or line clicked on. If you do this | 718 | this command extends or retracts the selection to where you click. |
| 717 | again in a different position, it extends the selection again. | 719 | If you do this again in a different position, it extends or retracts |
| 718 | If you do this twice in the same position, the selection is killed." | 720 | again. If you do this twice in the same position, it kills the selection." |
| 719 | (interactive "e") | 721 | (interactive "e") |
| 720 | (mouse-minibuffer-check click) | 722 | (mouse-minibuffer-check click) |
| 721 | (let ((posn (event-start click)) | 723 | (let ((posn (event-start click)) |