diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-27 22:38:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-27 22:38:19 +0000 |
| commit | 5babefcfaf560dbd8fbdd1fbeaba0087a8793437 (patch) | |
| tree | 8eaff7cf5018698c4fdf8fa90f1995f7758d9962 /lisp/avoid.el | |
| parent | 68d4a8a9d75e316e670e8163437821b5f4a9802e (diff) | |
| download | emacs-5babefcfaf560dbd8fbdd1fbeaba0087a8793437.tar.gz | |
(mouse-avoidance-old-pointer-shape): New vbl.
(mouse-avoidance-mode): Save old pointer shape when entering
protean mode; restore when exiting.
Diffstat (limited to 'lisp/avoid.el')
| -rw-r--r-- | lisp/avoid.el | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lisp/avoid.el b/lisp/avoid.el index 591eb698163..f95ee81985e 100644 --- a/lisp/avoid.el +++ b/lisp/avoid.el @@ -95,6 +95,7 @@ Only applies in mouse-avoidance-modes `animate' and `jump'.") (defvar mouse-avoidance-state nil) (defvar mouse-avoidance-pointer-shapes nil) (defvar mouse-avoidance-n-pointer-shapes 0) +(defvar mouse-avoidance-old-pointer-shape nil) ;;; Functions: @@ -323,6 +324,12 @@ definition of \"random distance\".)" (remove-hook 'post-command-idle-hook 'mouse-avoidance-banish-hook) (remove-hook 'post-command-idle-hook 'mouse-avoidance-exile-hook) (remove-hook 'post-command-idle-hook 'mouse-avoidance-fancy-hook) + + ;; Restore pointer shape if necessary + (if (eq mouse-avoidance-mode 'proteus) + (mouse-avoidance-set-pointer-shape mouse-avoidance-old-pointer-shape)) + + ;; Do additional setup depending on version of mode requested (cond ((eq mode 'none) (setq mouse-avoidance-mode nil)) ((or (eq mode 'jump) @@ -330,7 +337,8 @@ definition of \"random distance\".)" (eq mode 'proteus)) (add-hook 'post-command-idle-hook 'mouse-avoidance-fancy-hook) (setq mouse-avoidance-mode mode - mouse-avoidance-state (cons 0 0))) + mouse-avoidance-state (cons 0 0) + mouse-avoidance-old-pointer-shape x-pointer-shape)) ((eq mode 'exile) (add-hook 'post-command-idle-hook 'mouse-avoidance-exile-hook) (setq mouse-avoidance-mode mode |