Mercurial > emacs

changeset 14897:9cce31ba2d61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-avoidance-old-pointer-shape): New vbl. (mouse-avoidance-mode): Save old pointer shape when entering protean mode; restore when exiting.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Mar 1996 22:38:19 +0000
parents 3d81a1c0beaa
children 467e9d219590
files lisp/avoid.el
diffstat 1 files changed, 9 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/avoid.el	Wed Mar 27 19:11:10 1996 +0000
+++ b/lisp/avoid.el	Wed Mar 27 22:38:19 1996 +0000
@@ -95,6 +95,7 @@
 (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 @@
   (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 @@
 	     (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