aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/avoid.el
diff options
context:
space:
mode:
authorRichard M. Stallman1994-06-14 00:10:56 +0000
committerRichard M. Stallman1994-06-14 00:10:56 +0000
commit25cd2c1ba95299517ead3ad64e47156c889e7f1b (patch)
tree938775d028ba24b382a6f53e8e99e96d61098df3 /lisp/avoid.el
parent4b311aafccd98ca5d1ae4fadc0f0da12ce07c6db (diff)
downloademacs-25cd2c1ba95299517ead3ad64e47156c889e7f1b.tar.gz
emacs-25cd2c1ba95299517ead3ad64e47156c889e7f1b.zip
(mouse-avoidance-threshold): Renamed from ...threshhold.
Diffstat (limited to 'lisp/avoid.el')
-rw-r--r--lisp/avoid.el12
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/avoid.el b/lisp/avoid.el
index 214e5bb2757..029d338ba1b 100644
--- a/lisp/avoid.el
+++ b/lisp/avoid.el
@@ -83,7 +83,7 @@ instead.")
83(defvar mouse-avoidance-nudge-dist 15 83(defvar mouse-avoidance-nudge-dist 15
84 "*Average distance that mouse will be moved when approached by cursor. 84 "*Average distance that mouse will be moved when approached by cursor.
85Only applies in mouse-avoidance-mode `jump' and its derivatives. 85Only applies in mouse-avoidance-mode `jump' and its derivatives.
86For best results make this larger than `mouse-avoidance-threshhold'.") 86For best results make this larger than `mouse-avoidance-threshold'.")
87 87
88(defvar mouse-avoidance-nudge-var 10 88(defvar mouse-avoidance-nudge-var 10
89 "*Variability of `mouse-avoidance-nudge-dist' (which see).") 89 "*Variability of `mouse-avoidance-nudge-dist' (which see).")
@@ -91,7 +91,7 @@ For best results make this larger than `mouse-avoidance-threshhold'.")
91(defvar mouse-avoidance-animation-delay .01 91(defvar mouse-avoidance-animation-delay .01
92 "Delay between animation steps, in seconds.") 92 "Delay between animation steps, in seconds.")
93 93
94(defvar mouse-avoidance-threshhold 5 94(defvar mouse-avoidance-threshold 5
95 "*Mouse-pointer's flight distance. 95 "*Mouse-pointer's flight distance.
96If the cursor gets closer than this, the mouse pointer will move away. 96If the cursor gets closer than this, the mouse pointer will move away.
97Only applies in mouse-avoidance-modes `animate' and `jump'.") 97Only applies in mouse-avoidance-modes `animate' and `jump'.")
@@ -143,14 +143,14 @@ Analogous to mouse-position."
143 143
144(defun mouse-avoidance-too-close-p (mouse) 144(defun mouse-avoidance-too-close-p (mouse)
145 ;; Return t if mouse pointer and point cursor are too close. 145 ;; Return t if mouse pointer and point cursor are too close.
146 ;; Acceptable distance is defined by mouse-avoidance-threshhold. 146 ;; Acceptable distance is defined by mouse-avoidance-threshold.
147 (let ((point (mouse-avoidance-point-position))) 147 (let ((point (mouse-avoidance-point-position)))
148 (and (eq (car mouse) (car point)) 148 (and (eq (car mouse) (car point))
149 (car (cdr mouse)) 149 (car (cdr mouse))
150 (< (abs (- (car (cdr mouse)) (car (cdr point)))) 150 (< (abs (- (car (cdr mouse)) (car (cdr point))))
151 mouse-avoidance-threshhold) 151 mouse-avoidance-threshold)
152 (< (abs (- (cdr (cdr mouse)) (cdr (cdr point)))) 152 (< (abs (- (cdr (cdr mouse)) (cdr (cdr point))))
153 mouse-avoidance-threshhold)))) 153 mouse-avoidance-threshold))))
154 154
155(defun mouse-avoidance-banish-destination () 155(defun mouse-avoidance-banish-destination ()
156 "The position to which mouse-avoidance-mode `banish' moves the mouse. 156 "The position to which mouse-avoidance-mode `banish' moves the mouse.
@@ -311,7 +311,7 @@ Effects of the different modes:
311 311
312Whenever the mouse is moved, the frame is also raised. 312Whenever the mouse is moved, the frame is also raised.
313 313
314\(see `mouse-avoidance-threshhold' for definition of \"too close\", 314\(see `mouse-avoidance-threshold' for definition of \"too close\",
315and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for 315and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for
316definition of \"random distance\".)" 316definition of \"random distance\".)"
317 (interactive 317 (interactive