diff options
| author | Richard M. Stallman | 1994-06-14 00:10:56 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-06-14 00:10:56 +0000 |
| commit | 25cd2c1ba95299517ead3ad64e47156c889e7f1b (patch) | |
| tree | 938775d028ba24b382a6f53e8e99e96d61098df3 /lisp/avoid.el | |
| parent | 4b311aafccd98ca5d1ae4fadc0f0da12ce07c6db (diff) | |
| download | emacs-25cd2c1ba95299517ead3ad64e47156c889e7f1b.tar.gz emacs-25cd2c1ba95299517ead3ad64e47156c889e7f1b.zip | |
(mouse-avoidance-threshold): Renamed from ...threshhold.
Diffstat (limited to 'lisp/avoid.el')
| -rw-r--r-- | lisp/avoid.el | 12 |
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. |
| 85 | Only applies in mouse-avoidance-mode `jump' and its derivatives. | 85 | Only applies in mouse-avoidance-mode `jump' and its derivatives. |
| 86 | For best results make this larger than `mouse-avoidance-threshhold'.") | 86 | For 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. |
| 96 | If the cursor gets closer than this, the mouse pointer will move away. | 96 | If the cursor gets closer than this, the mouse pointer will move away. |
| 97 | Only applies in mouse-avoidance-modes `animate' and `jump'.") | 97 | Only 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 | ||
| 312 | Whenever the mouse is moved, the frame is also raised. | 312 | Whenever 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\", |
| 315 | and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for | 315 | and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for |
| 316 | definition of \"random distance\".)" | 316 | definition of \"random distance\".)" |
| 317 | (interactive | 317 | (interactive |