X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9149d738488f681797713bc6a635762519468391..8dbf19c70cafd3f61990a3ee7391d3e4dab20940:/lisp/mouse-copy.el diff --git a/lisp/mouse-copy.el b/lisp/mouse-copy.el index 22c20393ca..f5034a1dac 100644 --- a/lisp/mouse-copy.el +++ b/lisp/mouse-copy.el @@ -1,6 +1,6 @@ ;;; mouse-copy.el --- one-click text copy and move -;; Copyright (C) 1996 Free Software Foundation, Inc. +;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. ;; Author: John Heidemann ;; Keywords: mouse @@ -19,8 +19,8 @@ ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the -;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, -;; Boston, MA 02111-1307, USA. +;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +;; Boston, MA 02110-1301, USA. ;;; Commentary: @@ -115,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." @@ -151,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. @@ -182,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. @@ -224,4 +224,5 @@ by johnh@ficus.cs.ucla.edu." (provide 'mouse-copy) +;;; arch-tag: 3d50293b-c089-4273-b412-4fc96a5f26ff ;;; mouse-copy.el ends here