annotate lisp/avoid.el @ 94837:55eb2a3c59b4

Merge from gnus--devo--0 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1153
author Miles Bader <miles@gnu.org>
date Sat, 10 May 2008 05:34:55 +0000
parents ee5932bf781d
children d42aff5ca541
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13337
84acc3adcd63 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 12940
diff changeset
1 ;;; avoid.el --- make mouse pointer stay out of the way of editing
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2
74439
ddcbd2c1b70d Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 72334
diff changeset
3 ;; Copyright (C) 1993, 1994, 2000, 2001, 2002, 2003, 2004,
79721
73661ddc7ac7 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78236
diff changeset
4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
25278
cbe304a26771 Fix maintainer address.
Karl Heuer <kwzh@gnu.org>
parents: 24639
diff changeset
6 ;; Author: Boris Goldowsky <boris@gnu.org>
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 ;; Keywords: mouse
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
11 ;; GNU Emacs is free software: you can redistribute it and/or modify
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
13 ;; the Free Software Foundation, either version 3 of the License, or
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
14 ;; (at your option) any later version.
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
94678
ee5932bf781d Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79721
diff changeset
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
26 ;; For those who are annoyed by the mouse pointer obscuring text,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
27 ;; this mode moves the mouse pointer - either just a little out of
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
28 ;; the way, or all the way to the corner of the frame.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
29 ;; To use, load or evaluate this file and type M-x mouse-avoidance-mode .
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
30 ;; To set up permanently, put the following in your .emacs:
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
31 ;;
29200
28c61db89225 Remove window-system from comments, suggest using display-*-p instead.
Eli Zaretskii <eliz@gnu.org>
parents: 28101
diff changeset
32 ;; (if (display-mouse-p) (mouse-avoidance-mode 'animate))
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
33 ;;
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
34 ;; Other legitimate alternatives include
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
35 ;; `banish', `exile', `jump', `cat-and-mouse', and `proteus'.
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
36 ;; They do somewhat different things.
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
37 ;; See the documentation for function `mouse-avoidance-mode' for
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
38 ;; details of the different modes.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
39 ;;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
40 ;; For added silliness, make the animatee animate...
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
41 ;; put something similar to the following into your .emacs:
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
42 ;;
29200
28c61db89225 Remove window-system from comments, suggest using display-*-p instead.
Eli Zaretskii <eliz@gnu.org>
parents: 28101
diff changeset
43 ;; (if (eq window-system 'x)
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
44 ;; (mouse-avoidance-set-pointer-shape
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
45 ;; (eval (nth (random 4)
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
46 ;; '(x-pointer-man x-pointer-spider
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
47 ;; x-pointer-gobbler x-pointer-gumby)))))
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
48 ;;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
49 ;; For completely random pointer shape, replace the setq above with:
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
50 ;; (setq x-pointer-shape (mouse-avoidance-random-shape))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
51 ;;
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
52 ;; Bugs / Warnings / To-Do:
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
53 ;;
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
54 ;; - Using this code does slow Emacs down. "banish" mode shouldn't
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
55 ;; be too bad, and on my workstation even "animate" is reasonable.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
56 ;;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
57 ;; - It ought to find out where any overlapping frames are and avoid them,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
58 ;; rather than always raising the frame.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
59
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
60 ;; Credits:
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
61 ;; This code was helped by all those who contributed suggestions,
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
62 ;; fixes, and additions
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
63 ;; Joe Harrington (and his advisor), for the original inspiration.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
64 ;; Ken Manheimer, for dreaming up the Protean mode.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
65 ;; Richard Stallman, for the awful cat-and-mouse pun, among other things.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
66 ;; Mike Williams, Denis Howe, Bill Benedetto, Chris Moore, Don Morris,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
67 ;; Simon Marshall, and M.S. Ashton, for their feedback.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
68
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 ;;; Code:
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 (provide 'avoid)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
73 (defgroup avoid nil
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
74 "Make mouse pointer stay out of the way of editing."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
75 :prefix "mouse-avoidance-"
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
76 :group 'mouse)
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
77
28101
b59523f7ce40 (mouse-avoidance-mode): Add autoload cookie to
Dave Love <fx@gnu.org>
parents: 25278
diff changeset
78 ;;;###autoload
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
79 (defcustom mouse-avoidance-mode nil
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
80 "Activate mouse avoidance mode.
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
81 See function `mouse-avoidance-mode' for possible values.
24639
219a6fe709d6 (mouse-avoidance-mode): Doc fix.
Dave Love <fx@gnu.org>
parents: 24550
diff changeset
82 Setting this variable directly does not take effect;
219a6fe709d6 (mouse-avoidance-mode): Doc fix.
Dave Love <fx@gnu.org>
parents: 24550
diff changeset
83 use either \\[customize] or the function `mouse-avoidance-mode'."
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
84 :set (lambda (symbol value)
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
85 ;; 'none below prevents toggling when value is nil.
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
86 (mouse-avoidance-mode (or value 'none)))
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
87 :initialize 'custom-initialize-default
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
88 :type '(choice (const :tag "none" nil) (const banish) (const jump)
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
89 (const animate) (const exile) (const proteus)
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
90 )
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
91 :group 'avoid
21670
808ecc2eaa84 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 20993
diff changeset
92 :require 'avoid
808ecc2eaa84 *** empty log message ***
Dan Nicolaescu <done@ece.arizona.edu>
parents: 20993
diff changeset
93 :version "20.3")
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
94
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
96 (defcustom mouse-avoidance-nudge-dist 15
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 "*Average distance that mouse will be moved when approached by cursor.
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
98 Only applies in Mouse-Avoidance mode `jump' and its derivatives.
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
99 For best results make this larger than `mouse-avoidance-threshold'."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
100 :type 'integer
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
101 :group 'avoid)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
103 (defcustom mouse-avoidance-nudge-var 10
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
104 "*Variability of `mouse-avoidance-nudge-dist' (which see)."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
105 :type 'integer
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
106 :group 'avoid)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
108 (defcustom mouse-avoidance-animation-delay .01
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
109 "Delay between animation steps, in seconds."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
110 :type 'number
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
111 :group 'avoid)
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
112
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
113 (defcustom mouse-avoidance-threshold 5
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 "*Mouse-pointer's flight distance.
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 If the cursor gets closer than this, the mouse pointer will move away.
17436
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
116 Only applies in mouse-avoidance-modes `animate' and `jump'."
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
117 :type 'integer
2a9fdbfcb993 Add defgroup; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents: 17067
diff changeset
118 :group 'avoid)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
120 ;; Internal variables
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
121 (defvar mouse-avoidance-state nil)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 (defvar mouse-avoidance-pointer-shapes nil)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 (defvar mouse-avoidance-n-pointer-shapes 0)
14897
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
124 (defvar mouse-avoidance-old-pointer-shape nil)
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
125 (defvar mouse-avoidance-animating-pointer nil)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126
19323
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
127 ;; This timer is used to run something when Emacs is idle.
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
128 (defvar mouse-avoidance-timer nil)
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
129
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 ;;; Functions:
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131
11269
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
132 (defsubst mouse-avoidance-set-pointer-shape (shape)
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
133 "Set the shape of the mouse pointer to SHAPE."
38539
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
134 (when (boundp 'x-pointer-shape)
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
135 (setq x-pointer-shape shape)
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
136 (set-mouse-color nil)))
11269
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
137
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
138 (defun mouse-avoidance-point-position ()
7556
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
139 "Return the position of point as (FRAME X . Y).
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
140 Analogous to `mouse-position'."
70412
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
141 (let ((edges (window-inside-edges))
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
142 (x-y (posn-x-y (posn-at-point))))
7849
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
143 (cons (selected-frame)
70412
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
144 (cons (+ (car edges)
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
145 (/ (car x-y) (frame-char-width)))
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
146 (+ (car (cdr edges))
12496a44a084 (mouse-avoidance-point-position): Use posn-at-point instead of compute-motion.
Kim F. Storm <storm@cua.dk>
parents: 68651
diff changeset
147 (/ (cdr x-y) (frame-char-height)))))))
7849
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
148
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
149 ;(defun mouse-avoidance-point-position-test ()
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
150 ; (interactive)
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
151 ; (message (format "point=%s mouse=%s"
7849
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
152 ; (cdr (mouse-avoidance-point-position))
bbc7770db51c (mouse-avoidance-point-position): Fix compute-motion
Richard M. Stallman <rms@gnu.org>
parents: 7571
diff changeset
153 ; (cdr (mouse-position)))))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
154
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
155 (defun mouse-avoidance-set-mouse-position (pos)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
156 ;; Carefully set mouse position to given position (X . Y)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
157 ;; Ideally, should check if X,Y is in the current frame, and if not,
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
158 ;; leave the mouse where it was. However, this is currently
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
159 ;; difficult to do, so we just raise the frame to avoid frame switches.
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
160 ;; Returns t if it moved the mouse.
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
161 (let ((f (selected-frame)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
162 (raise-frame f)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
163 (set-mouse-position f (car pos) (cdr pos))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
164 t))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
165
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
166 (defun mouse-avoidance-too-close-p (mouse)
33809
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
167 "Return t if mouse pointer and point cursor are too close.
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
168 MOUSE is the current mouse position as returned by `mouse-position'.
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
169 Acceptable distance is defined by `mouse-avoidance-threshold'."
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
170 (let* ((frame (car mouse))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
171 (mouse-y (cdr (cdr mouse)))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
172 (tool-bar-lines (frame-parameter nil 'tool-bar-lines)))
38539
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
173 (or tool-bar-lines
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
174 (setq tool-bar-lines 0))
33809
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
175 (if (and mouse-y (< mouse-y tool-bar-lines))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
176 nil
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
177 (let ((point (mouse-avoidance-point-position))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
178 (mouse-x (car (cdr mouse))))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
179 (and (eq frame (car point))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
180 (not (null mouse-x))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
181 (< (abs (- mouse-x (car (cdr point))))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
182 mouse-avoidance-threshold)
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
183 (< (abs (- mouse-y (cdr (cdr point))))
19c8badbcb15 (mouse-avoidance-too-close-p): Return nil if mouse
Gerd Moellmann <gerd@gnu.org>
parents: 30765
diff changeset
184 mouse-avoidance-threshold))))))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
186 (defun mouse-avoidance-banish-destination ()
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
187 "The position to which Mouse-Avoidance mode `banish' moves the mouse.
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
188 You can redefine this if you want the mouse banished to a different corner."
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
189 (let* ((pos (window-edges)))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
190 (cons (- (nth 2 pos) 2)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
191 (nth 1 pos))))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
192
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
193 (defun mouse-avoidance-banish-mouse ()
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
194 ;; Put the mouse pointer in the upper-right corner of the current frame.
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
195 (mouse-avoidance-set-mouse-position (mouse-avoidance-banish-destination)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
196
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
197 (defsubst mouse-avoidance-delta (cur delta dist var min max)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
198 ;; Decide how far to move in either dimension.
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
199 ;; Args are the CURRENT location, the desired DELTA for
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
200 ;; warp-conservation, the DISTANCE we like to move, the VARIABILITY
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
201 ;; in distance allowed, and the MIN and MAX possible window positions.
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13337
diff changeset
202 ;; Returns something as close to DELTA as possible within the constraints.
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
203 (let ((L1 (max (- min cur) (+ (- dist) (- var))))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
204 (R1 (+ (- dist) var ))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
205 (L2 (+ dist (- var)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
206 (R2 (min (- max cur) (+ dist var))))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
207 (if (< R1 (- min cur)) (setq L1 nil R1 nil))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
208 (if (> L2 (- max cur)) (setq L2 nil R2 nil))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
209 (cond ((and L1 (< delta L1)) L1)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
210 ((and R1 (< delta R1)) delta)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
211 ((and R1 (< delta 0)) R1)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
212 ((and L2 (< delta L2)) L2)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
213 ((and R2 (< delta R2)) delta)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
214 (R2)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
215 ((or R1 L2))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
216 (t 0))))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
218 (defun mouse-avoidance-nudge-mouse ()
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
219 ;; Push the mouse a little way away, possibly animating the move.
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
220 ;; For these modes, state keeps track of the total offset that we've
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
221 ;; accumulated, and tries to keep it close to zero.
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 (let* ((cur (mouse-position))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
223 (cur-frame (car cur))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
224 (cur-pos (cdr cur))
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
225 (pos (window-edges))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
226 (wleft (pop pos))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
227 (wtop (pop pos))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
228 (wright (pop pos))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
229 (wbot (pop pos))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
230 (deltax (mouse-avoidance-delta
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
231 (car cur-pos) (- (random mouse-avoidance-nudge-var)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
232 (car mouse-avoidance-state))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
233 mouse-avoidance-nudge-dist mouse-avoidance-nudge-var
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
234 wleft (1- wright)))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
235 (deltay (mouse-avoidance-delta
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
236 (cdr cur-pos) (- (random mouse-avoidance-nudge-var)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
237 (cdr mouse-avoidance-state))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
238 mouse-avoidance-nudge-dist mouse-avoidance-nudge-var
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
239 wtop (1- wbot))))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
240 (setq mouse-avoidance-state
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
241 (cons (+ (car mouse-avoidance-state) deltax)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
242 (+ (cdr mouse-avoidance-state) deltay)))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
243 (if (or (eq mouse-avoidance-mode 'animate)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 (eq mouse-avoidance-mode 'proteus))
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
245 (let ((i 0.0)
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
246 (incr (max .1 (/ 1.0 mouse-avoidance-nudge-dist))))
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
247 (setq mouse-avoidance-animating-pointer t)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 (while (<= i 1)
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
249 (mouse-avoidance-set-mouse-position
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
250 (cons (+ (car cur-pos) (round (* i deltax)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
251 (+ (cdr cur-pos) (round (* i deltay)))))
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
252 (setq i (+ i incr))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 (if (eq mouse-avoidance-mode 'proteus)
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
254 (mouse-avoidance-set-pointer-shape
11269
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
255 (mouse-avoidance-random-shape)))
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
256 (sit-for mouse-avoidance-animation-delay))
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
257 (setq mouse-avoidance-animating-pointer nil))
7556
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
258 (mouse-avoidance-set-mouse-position (cons (+ (car (cdr cur)) deltax)
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
259 (+ (cdr (cdr cur)) deltay))))))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 (defun mouse-avoidance-random-shape ()
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 "Return a random cursor shape.
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 This assumes that any variable whose name begins with x-pointer- and
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 has an integer value is a valid cursor shape. You might want to
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
265 redefine this function to suit your own tastes."
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
266 (if (null mouse-avoidance-pointer-shapes)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
267 (progn
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
268 (setq mouse-avoidance-pointer-shapes
29550
48ef50f314bf (mouse-avoidance-random-shape): Don't quote lambda.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 29200
diff changeset
269 (mapcar (lambda (x) (symbol-value (intern x)))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 (all-completions "x-pointer-" obarray
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
271 (lambda (x)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 (and (boundp x)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 (integerp (symbol-value x)))))))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
274 (setq mouse-avoidance-n-pointer-shapes
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 (length mouse-avoidance-pointer-shapes))))
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 (nth (random mouse-avoidance-n-pointer-shapes)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 mouse-avoidance-pointer-shapes))
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
279 (defun mouse-avoidance-ignore-p ()
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
280 (let ((mp (mouse-position)))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
281 (or executing-kbd-macro ; don't check inside macro
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
282 (null (cadr mp)) ; don't move unless in an Emacs frame
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
283 (not (eq (car mp) (selected-frame)))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
284 ;; Don't do anything if last event was a mouse event.
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
285 ;; FIXME: this code fails in the case where the mouse was moved
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
286 ;; since the last key-press but without generating any event.
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
287 (and (consp last-input-event)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
288 (symbolp (car last-input-event))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
289 (let ((modifiers (event-modifiers (car last-input-event))))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
290 (or (memq (car last-input-event)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
291 '(mouse-movement scroll-bar-movement
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
292 select-window switch-frame))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
293 (memq 'click modifiers)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
294 (memq 'double modifiers)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
295 (memq 'triple modifiers)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
296 (memq 'drag modifiers)
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
297 (memq 'down modifiers)))))))
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
298
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
299 (defun mouse-avoidance-banish ()
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
300 (if (not (mouse-avoidance-ignore-p))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
301 (mouse-avoidance-banish-mouse)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
302
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
303 (defun mouse-avoidance-exile ()
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
304 ;; For exile mode, the state is nil when the mouse is in its normal
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
305 ;; position, and set to the old mouse-position when the mouse is in exile.
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
306 (if (not (mouse-avoidance-ignore-p))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
307 (let ((mp (mouse-position)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
308 (cond ((and (not mouse-avoidance-state)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
309 (mouse-avoidance-too-close-p mp))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
310 (setq mouse-avoidance-state mp)
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
311 (mouse-avoidance-banish-mouse))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
312 ((and mouse-avoidance-state
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
313 (not (mouse-avoidance-too-close-p mouse-avoidance-state)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
314 (if (and (eq (car mp) (selected-frame))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
315 (equal (cdr mp) (mouse-avoidance-banish-destination)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
316 (mouse-avoidance-set-mouse-position
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
317 ;; move back only if user has not moved mouse
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
318 (cdr mouse-avoidance-state)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
319 ;; but clear state anyway, to be ready for another move
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
320 (setq mouse-avoidance-state nil))))))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
322 (defun mouse-avoidance-fancy ()
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
323 ;; Used for the "fancy" modes, ie jump et al.
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
324 (if (and (not mouse-avoidance-animating-pointer)
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
325 (not (mouse-avoidance-ignore-p))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
326 (mouse-avoidance-too-close-p (mouse-position)))
5745
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
327 (let ((old-pos (mouse-position)))
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
328 (mouse-avoidance-nudge-mouse)
11269
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
329 (if (not (eq (selected-frame) (car old-pos)))
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
330 ;; This should never happen.
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
331 (apply 'set-mouse-position old-pos)))))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332
11269
26d830b04546 avoid.el Add autoload cookies; doc fixes.
Boris Goldowsky <boris@gnu.org>
parents: 7879
diff changeset
333 ;;;###autoload
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 (defun mouse-avoidance-mode (&optional mode)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 "Set cursor avoidance mode to MODE.
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
336 MODE should be one of the symbols `banish', `exile', `jump', `animate',
5745
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
337 `cat-and-mouse', `proteus', or `none'.
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
338
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
339 If MODE is nil, toggle mouse avoidance between `none' and `banish'
5745
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
340 modes. Positive numbers and symbols other than the above are treated
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
341 as equivalent to `banish'; negative numbers and `-' are equivalent to `none'.
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
342
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
343 Effects of the different modes:
7556
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
344 * banish: Move the mouse to the upper-right corner on any keypress.
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
345 * exile: Move the mouse to the corner only if the cursor gets too close,
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
346 and allow it to return once the cursor is out of the way.
7556
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
347 * jump: If the cursor gets too close to the mouse, displace the mouse
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
348 a random distance & direction.
7556
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
349 * animate: As `jump', but shows steps along the way for illusion of motion.
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
350 * cat-and-mouse: Same as `animate'.
48f98b59a339 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 7015
diff changeset
351 * proteus: As `animate', but changes the shape of the mouse pointer too.
5745
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
352
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
353 Whenever the mouse is moved, the frame is also raised.
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
354
7879
e0f3cfb55df7 (mouse-avoidance-threshold): Renamed from ...threshhold.
Richard M. Stallman <rms@gnu.org>
parents: 7849
diff changeset
355 \(see `mouse-avoidance-threshold' for definition of \"too close\",
5745
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
356 and `mouse-avoidance-nudge-dist' and `mouse-avoidance-nudge-var' for
01628c0b2646 Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5145
diff changeset
357 definition of \"random distance\".)"
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 (interactive
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 (list (intern (completing-read
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 "Select cursor avoidance technique (SPACE for list): "
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
361 '(("banish") ("exile") ("jump") ("animate")
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
362 ("cat-and-mouse") ("proteus") ("none"))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 nil t))))
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 (if (eq mode 'cat-and-mouse)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 (setq mode 'animate))
19323
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
366 (if mouse-avoidance-timer
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
367 (cancel-timer mouse-avoidance-timer))
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
368 (setq mouse-avoidance-timer nil)
14897
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
369
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
370 ;; Restore pointer shape if necessary
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
371 (if (eq mouse-avoidance-mode 'proteus)
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
372 (mouse-avoidance-set-pointer-shape mouse-avoidance-old-pointer-shape))
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
373
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
374 ;; Do additional setup depending on version of mode requested
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 (cond ((eq mode 'none)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 (setq mouse-avoidance-mode nil))
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 ((or (eq mode 'jump)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 (eq mode 'animate)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 (eq mode 'proteus))
19323
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
380 (setq mouse-avoidance-timer
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
381 (run-with-idle-timer 0.1 t 'mouse-avoidance-fancy))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
382 (setq mouse-avoidance-mode mode
14897
9cce31ba2d61 (mouse-avoidance-old-pointer-shape): New vbl.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
383 mouse-avoidance-state (cons 0 0)
38539
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
384 mouse-avoidance-old-pointer-shape
f150471f4c55 (mouse-avoidance-too-close-p): If the frame lacks a
Eli Zaretskii <eliz@gnu.org>
parents: 33809
diff changeset
385 (and (boundp 'x-pointer-shape) x-pointer-shape)))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
386 ((eq mode 'exile)
19323
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
387 (setq mouse-avoidance-timer
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
388 (run-with-idle-timer 0.1 t 'mouse-avoidance-exile))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
389 (setq mouse-avoidance-mode mode
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
390 mouse-avoidance-state nil))
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
391 ((or (eq mode 'banish)
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 (eq mode t)
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 (and (null mode) (null mouse-avoidance-mode))
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 (and mode (> (prefix-numeric-value mode) 0)))
19323
b686f7cb6849 (mouse-avoidance-timer): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 17436
diff changeset
395 (setq mouse-avoidance-timer
72334
872d10db66d6 * avoid.el (mouse-avoidance-animating-pointer): New var.
Chong Yidong <cyd@stupidchicken.com>
parents: 70412
diff changeset
396 (run-with-idle-timer 0.1 t 'mouse-avoidance-banish))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 (setq mouse-avoidance-mode 'banish))
7015
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
398 (t (setq mouse-avoidance-mode nil)))
41b90d7dd228 doc fix.
Karl Heuer <kwzh@gnu.org>
parents: 6106
diff changeset
399 (force-mode-line-update))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400
17067
15b18d794b75 Don't put "Avoid" in the mode line.
Karl Heuer <kwzh@gnu.org>
parents: 14897
diff changeset
401 ;; Most people who use avoid mode leave it on all the time, so it's not
15b18d794b75 Don't put "Avoid" in the mode line.
Karl Heuer <kwzh@gnu.org>
parents: 14897
diff changeset
402 ;; very informative to announce it in the mode line.
15b18d794b75 Don't put "Avoid" in the mode line.
Karl Heuer <kwzh@gnu.org>
parents: 14897
diff changeset
403 ;;(or (assq 'mouse-avoidance-mode minor-mode-alist)
15b18d794b75 Don't put "Avoid" in the mode line.
Karl Heuer <kwzh@gnu.org>
parents: 14897
diff changeset
404 ;; (setq minor-mode-alist (cons '(mouse-avoidance-mode " Avoid")
15b18d794b75 Don't put "Avoid" in the mode line.
Karl Heuer <kwzh@gnu.org>
parents: 14897
diff changeset
405 ;; minor-mode-alist)))
5119
bf9e7676a73e Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
407 ;; Needed for custom.
30765
1e5a486b8b25 punctuation fixes in doc strings
Sam Steingold <sds@gnu.org>
parents: 29550
diff changeset
408 (if mouse-avoidance-mode
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
409 (mouse-avoidance-mode mouse-avoidance-mode))
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
410
56730
a00d573807f9 (mouse-avoidance-ignore-p): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 56586
diff changeset
411 ;; arch-tag: 64ad4ef8-a870-4183-8d96-3aa93b7a6800
20512
65399b8cd0ad (mouse-avoidance-mode): Variable customized to automatically load the package.
Richard M. Stallman <rms@gnu.org>
parents: 19323
diff changeset
412 ;;; avoid.el ends here