(goto-address-mail-regexp): Allow = in username.

[gnu-emacs] / lisp / mouse-copy.el

diff --git a/lisp/mouse-copy.el b/lisp/mouse-copy.el
index c35eaa3b115985cdc8c4e065c48e5626a2936e9a..528cfb8d82408f6889ea46986579b640e0b9a7c4 100644 (file)
--- a/lisp/mouse-copy.el
+++ b/lisp/mouse-copy.el
@@ -77,7 +77,7 @@
 ;;; Future plans:
 ;;;
 ;;; I read about the chording features of Plan-9's Acme environment at
-;;; <http://swifty.dap.csiro.au/%7Ecameron/wily/auug.html>.  I'd like
+;;; <http://www.zip.com.au/~cs/app/wily/auug.html>.  I'd like
 ;;; to incorporate some of these ideas into mouse-copy.  The only
 ;;; lose is that this is not the current Emacs Way Of Doing Things, so
 ;;; there would be a learning curve for existing emacs users.
@@ -93,28 +93,6 @@
 ;;; implementation of horizontal drag-scrolling.
 ;;;
 ;;;    -johnh, 11-Jul-96
-;;;
-;;;
-;;; Old changes, for reference:
-;;;
-;;; What's new with mouse-copy 2.22?
-;;;
-;;; - copy functions split out from mouse-extras.el
-;;; - support for emacs-19.{29,30,31} (no changes needed for the 31 port!)
-;;;
-;;;
-;;; What's new with mouse-extras 2.21?
-;;;
-;;; - support for emacs-19.{29,30}
-;;; - point now stays on the visible screen during horizontal scrolling
-;;;   (bug identified and fix suggested by Tom Wurgler <twurgler@goodyear.com>)
-;;; - better work-around for lost-mouse-events bug (supports double/triple
-;;;   clicks), see \\[mouse-extras-work-around-drag-bug] for details.
-;;; - work-around for lost-mouse-events bug now is OFF by default;
-;;;   enable it if you have problems
-;;;
-
-
 \f
 ;;; Code:
 
@@ -137,12 +115,12 @@ The problem occurs under XFree86-3.1.1 (X11R6pl11) but not under X11R5,
 and under post-19.29 but not early versions of emacs.
 
 19.29 and 19.30 seems to drop mouse drag events
-sometimes. (Reproducable under XFree86-3.1.1 (X11R6pl11) and
+sometimes. (Reproducible under XFree86-3.1.1 (X11R6pl11) and
 XFree86-3.1.2 under Linux 1.2.x.  Doesn't occur under X11R5 and SunOS
 4.1.1.)
 
 To see if you have the problem:
-Disable this routine (with (setq mouse-copy-have-drag-bug nil))..
+Disable this routine (with (setq mouse-copy-have-drag-bug nil)).
 Click and drag for a while.
 If highlighting stops tracking, you have the bug.
 If you have the bug (or the real fix :-), please let me know."
@@ -173,7 +151,7 @@ If you have the bug (or the real fix :-), please let me know."
       (set-buffer end-buffer)
       (x-set-selection 'SECONDARY (buffer-substring beg end)))))
 
-    
+
 (defun mouse-drag-secondary-pasting (start-event)
   "Drag out a secondary selection, then paste it at the current point.
 
@@ -204,7 +182,7 @@ put the point at one place, then click and drag over some other region."
        (insert (x-get-selection 'SECONDARY))
        (setq mouse-copy-last-paste-end (point)))
     (setq mouse-copy-last-paste-start nil)))
-  
+
 
 (defun mouse-kill-preserving-secondary ()
   "Kill the text in the secondary selection, but leave the selection set.
@@ -246,4 +224,5 @@ by johnh@ficus.cs.ucla.edu."
 
 (provide 'mouse-copy)
 
+;;; arch-tag: 3d50293b-c089-4273-b412-4fc96a5f26ff
 ;;; mouse-copy.el ends here