diff options
| author | Stefan Monnier | 2008-04-15 15:25:18 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2008-04-15 15:25:18 +0000 |
| commit | 1d45a604939d883fbeceedff31453d33946b5e13 (patch) | |
| tree | 5a8f31c9eef1d8569f71f1678176f38609b8ada0 | |
| parent | ea89d7206680f28b3d85788be766d06ac763a50b (diff) | |
| download | emacs-1d45a604939d883fbeceedff31453d33946b5e13.tar.gz emacs-1d45a604939d883fbeceedff31453d33946b5e13.zip | |
Fix comment style.
| -rw-r--r-- | lisp/mouse-copy.el | 138 |
1 files changed, 69 insertions, 69 deletions
diff --git a/lisp/mouse-copy.el b/lisp/mouse-copy.el index 67c94992983..93b057c3fbf 100644 --- a/lisp/mouse-copy.el +++ b/lisp/mouse-copy.el | |||
| @@ -25,75 +25,75 @@ | |||
| 25 | 25 | ||
| 26 | ;;; Commentary: | 26 | ;;; Commentary: |
| 27 | 27 | ||
| 28 | ;;; What is ``mouse-copy.el''? | 28 | ;; What is ``mouse-copy.el''? |
| 29 | ;;; | 29 | ;; |
| 30 | ;;; It provides one-click text copy and move. Rather than the | 30 | ;; It provides one-click text copy and move. Rather than the |
| 31 | ;;; standard stroke-out-a-region (down-mouse-1, up-mouse-1) followed | 31 | ;; standard stroke-out-a-region (down-mouse-1, up-mouse-1) followed |
| 32 | ;;; by a yank (down-mouse-2, up-mouse-2 or C-y), you can now stroke | 32 | ;; by a yank (down-mouse-2, up-mouse-2 or C-y), you can now stroke |
| 33 | ;;; out a region and have it automatically pasted at the current | 33 | ;; out a region and have it automatically pasted at the current |
| 34 | ;;; point. You can also move text just as easily. Although the | 34 | ;; point. You can also move text just as easily. Although the |
| 35 | ;;; difference may not sound like much, it does make mousing text | 35 | ;; difference may not sound like much, it does make mousing text |
| 36 | ;;; around a lot easier, IMHO. | 36 | ;; around a lot easier, IMHO. |
| 37 | ;;; | 37 | ;; |
| 38 | ;;; If you like mouse-copy, you should also check out mouse-drag | 38 | ;; If you like mouse-copy, you should also check out mouse-drag |
| 39 | ;;; for ``one-click scrolling''. | 39 | ;; for ``one-click scrolling''. |
| 40 | ;;; | 40 | ;; |
| 41 | ;;; To use mouse-copy, place the following in your .emacs file: | 41 | ;; To use mouse-copy, place the following in your .emacs file: |
| 42 | ;;; (require 'mouse-copy) | 42 | ;; (require 'mouse-copy) |
| 43 | ;;; (global-set-key [M-down-mouse-1] 'mouse-drag-secondary-pasting) | 43 | ;; (global-set-key [M-down-mouse-1] 'mouse-drag-secondary-pasting) |
| 44 | ;;; (global-set-key [M-S-down-mouse-1] 'mouse-drag-secondary-moving) | 44 | ;; (global-set-key [M-S-down-mouse-1] 'mouse-drag-secondary-moving) |
| 45 | ;;; | 45 | ;; |
| 46 | ;;; (These definitions override the old binding of M-mouse-1 to | 46 | ;; (These definitions override the old binding of M-mouse-1 to |
| 47 | ;;; mouse-drag-secondary. I find I don't use that command much so its | 47 | ;; mouse-drag-secondary. I find I don't use that command much so its |
| 48 | ;;; loss is not important, and it can be made up with a M-mouse-1 | 48 | ;; loss is not important, and it can be made up with a M-mouse-1 |
| 49 | ;;; followed by a M-mouse-3. I personally reserve M-mouse bindings | 49 | ;; followed by a M-mouse-3. I personally reserve M-mouse bindings |
| 50 | ;;; for my window manager and bind everything to C-mouse.) | 50 | ;; for my window manager and bind everything to C-mouse.) |
| 51 | ;;; | 51 | ;; |
| 52 | ;;; | 52 | ;; |
| 53 | ;;; History and related work: | 53 | ;; History and related work: |
| 54 | ;;; | 54 | ;; |
| 55 | ;;; One-click copying and moving was inspired by lemacs-19.8. | 55 | ;; One-click copying and moving was inspired by lemacs-19.8. |
| 56 | ;;; Throw-scrolling was inspired by MacPaint's ``hand'' and by Tk's | 56 | ;; Throw-scrolling was inspired by MacPaint's ``hand'' and by Tk's |
| 57 | ;;; mouse-2 scrolling. The package mouse-scroll.el by Tom Wurgler | 57 | ;; mouse-2 scrolling. The package mouse-scroll.el by Tom Wurgler |
| 58 | ;;; <twurgler@goodyear.com> is similar to mouse-drag-throw, but | 58 | ;; <twurgler@goodyear.com> is similar to mouse-drag-throw, but |
| 59 | ;;; doesn't pass clicks through. | 59 | ;; doesn't pass clicks through. |
| 60 | ;;; | 60 | ;; |
| 61 | ;;; These functions have been tested in emacs version 19.30, | 61 | ;; These functions have been tested in emacs version 19.30, |
| 62 | ;;; and this package has run in the past on 19.25-19.29. | 62 | ;; and this package has run in the past on 19.25-19.29. |
| 63 | ;;; | 63 | ;; |
| 64 | ;;; Originally mouse-copy was part of a larger package. | 64 | ;; Originally mouse-copy was part of a larger package. |
| 65 | ;;; As of 11 July 96 the scrolling functions were split out | 65 | ;; As of 11 July 96 the scrolling functions were split out |
| 66 | ;;; in preparation for incorporation into (the future) emacs-19.32. | 66 | ;; in preparation for incorporation into (the future) emacs-19.32. |
| 67 | ;;; | 67 | ;; |
| 68 | ;;; | 68 | ;; |
| 69 | ;;; Known Bugs: | 69 | ;; Known Bugs: |
| 70 | ;;; | 70 | ;; |
| 71 | ;;; - Highlighting is sub-optimal under 19.29 and XFree86-3.1.1 | 71 | ;; - Highlighting is sub-optimal under 19.29 and XFree86-3.1.1 |
| 72 | ;;; (see \\[mouse-copy-work-around-drag-bug] for details). | 72 | ;; (see \\[mouse-copy-work-around-drag-bug] for details). |
| 73 | ;;; - mouse-drag-secondary-pasting and mouse-drag-secondary-moving | 73 | ;; - mouse-drag-secondary-pasting and mouse-drag-secondary-moving |
| 74 | ;;; require X11R5 (or better) and so fail under older versions | 74 | ;; require X11R5 (or better) and so fail under older versions |
| 75 | ;;; of Open Windows (like that present in Solaris/x86 2.1). | 75 | ;; of Open Windows (like that present in Solaris/x86 2.1). |
| 76 | ;;; | 76 | ;; |
| 77 | ;;; | 77 | ;; |
| 78 | ;;; Future plans: | 78 | ;; Future plans: |
| 79 | ;;; | 79 | ;; |
| 80 | ;;; I read about the chording features of Plan-9's Acme environment at | 80 | ;; I read about the chording features of Plan-9's Acme environment at |
| 81 | ;;; <http://www.zip.com.au/~cs/app/wily/auug.html>. I'd like | 81 | ;; <http://www.zip.com.au/~cs/app/wily/auug.html>. I'd like |
| 82 | ;;; to incorporate some of these ideas into mouse-copy. The only | 82 | ;; to incorporate some of these ideas into mouse-copy. The only |
| 83 | ;;; lose is that this is not the current Emacs Way Of Doing Things, so | 83 | ;; lose is that this is not the current Emacs Way Of Doing Things, so |
| 84 | ;;; there would be a learning curve for existing emacs users. | 84 | ;; there would be a learning curve for existing emacs users. |
| 85 | ;;; | 85 | ;; |
| 86 | ;;; | 86 | ;; |
| 87 | ;;; Thanks: | 87 | ;; Thanks: |
| 88 | ;;; | 88 | ;; |
| 89 | ;;; Thanks to Kai Grossjohann | 89 | ;; Thanks to Kai Grossjohann |
| 90 | ;;; <grossjoh@dusty.informatik.uni-dortmund.de> for reporting bugs, to | 90 | ;; <grossjoh@dusty.informatik.uni-dortmund.de> for reporting bugs, to |
| 91 | ;;; Tom Wurgler <twurgler@goodyear.com> for reporting bugs and | 91 | ;; Tom Wurgler <twurgler@goodyear.com> for reporting bugs and |
| 92 | ;;; suggesting fixes, and to Joel Graber <jgraber@ti.com> for | 92 | ;; suggesting fixes, and to Joel Graber <jgraber@ti.com> for |
| 93 | ;;; prompting me to do drag-scrolling and for an initial | 93 | ;; prompting me to do drag-scrolling and for an initial |
| 94 | ;;; implementation of horizontal drag-scrolling. | 94 | ;; implementation of horizontal drag-scrolling. |
| 95 | ;;; | 95 | ;; |
| 96 | ;;; -johnh, 11-Jul-96 | 96 | ;; -johnh, 11-Jul-96 |
| 97 | 97 | ||
| 98 | ;;; Code: | 98 | ;;; Code: |
| 99 | 99 | ||