# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 886802189 0
# Node ID efafba146bb5f53df3b67615bcc7ef6aea82670a
# Parent  185fa242a2eaee71249e007431feb5f4c0077553
(mouse-avoidance-fancy-hook): Do nothing if button is down.
(mouse-avoidance-exile-hook, mouse-avoidance-banish-hook): Likewise.

diff -r 185fa242a2ea -r efafba146bb5 lisp/avoid.el
--- a/lisp/avoid.el	Fri Feb 06 21:55:42 1998 +0000
+++ b/lisp/avoid.el	Fri Feb 06 21:56:29 1998 +0000
@@ -267,6 +267,10 @@
 
 (defun mouse-avoidance-banish-hook ()
   (if (and (not executing-kbd-macro)	; don't check inside macro
+	   ;; Don't check while mouse is down.
+	   (not (and (consp last-input-event)
+		     (symbolp (car last-input-event))
+		     (memq 'down (event-modifiers (car last-input-event)))))
 	   (mouse-avoidance-kbd-command (this-command-keys)))
       (mouse-avoidance-banish-mouse)))
 
@@ -274,6 +278,9 @@
   ;; For exile mode, the state is nil when the mouse is in its normal
   ;; position, and set to the old mouse-position when the mouse is in exile.
   (if (and (not executing-kbd-macro)
+	   (not (and (consp last-input-event)
+		     (symbolp (car last-input-event))
+		     (memq 'down (event-modifiers (car last-input-event)))))
 	   (mouse-avoidance-kbd-command (this-command-keys)))
       (let ((mp (mouse-position)))
 	(cond ((and (not mouse-avoidance-state)
@@ -293,6 +300,9 @@
 (defun mouse-avoidance-fancy-hook ()
   ;; Used for the "fancy" modes, ie jump et al.
   (if (and (not executing-kbd-macro)	; don't check inside macro
+	   (not (and (consp last-input-event)
+		     (symbolp (car last-input-event))
+		     (memq 'down (event-modifiers (car last-input-event)))))
 	   (mouse-avoidance-kbd-command (this-command-keys))
 	   (mouse-avoidance-too-close-p (mouse-position)))
       (let ((old-pos (mouse-position)))