Mercurial > emacs

changeset 20858:efafba146bb5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-avoidance-fancy-hook): Do nothing if button is down. (mouse-avoidance-exile-hook, mouse-avoidance-banish-hook): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Fri, 06 Feb 1998 21:56:29 +0000
parents 185fa242a2ea
children ef38c9fcbc28
files lisp/avoid.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)))