[Emacs-diffs] Changes to emacs/lisp/tooltip.el

[Richard M. Stallman]

Index: emacs/lisp/tooltip.el
diff -c emacs/lisp/tooltip.el:1.23 emacs/lisp/tooltip.el:1.24
*** emacs/lisp/tooltip.el:1.23  Sat May 11 04:19:36 2002
--- emacs/lisp/tooltip.el       Wed May 29 12:38:06 2002
***************
*** 299,314 ****
          (tooltip-activate-mouse-motions nil))
        (setq buffers (cdr buffers))))))
  
  
  (defun tooltip-activate-mouse-motions (activatep)
    "Activate/deactivate mouse motion events for the current buffer.
  ACTIVATEP non-nil means activate mouse motion events."
    (if activatep
        (progn
        (make-local-variable 'track-mouse)
        (setq track-mouse t))
!     (kill-local-variable 'track-mouse)))
! 
  
  (defun tooltip-mouse-motion (event)
    "Command handler for mouse movement events in `global-map'."
--- 299,319 ----
          (tooltip-activate-mouse-motions nil))
        (setq buffers (cdr buffers))))))
  
+ (defvar tooltip-mouse-motions-active nil
+   "Locally t in a buffer if tooltip processing of mouse motion is enabled.")
  
  (defun tooltip-activate-mouse-motions (activatep)
    "Activate/deactivate mouse motion events for the current buffer.
  ACTIVATEP non-nil means activate mouse motion events."
    (if activatep
        (progn
+       (make-local-variable 'tooltip-mouse-motions-active)
+       (setq tooltip-mouse-motions-active t)
        (make-local-variable 'track-mouse)
        (setq track-mouse t))
!     (when tooltip-mouse-motions-active
!       (kill-local-variable 'tooltip-mouse-motions-active)
!       (kill-local-variable 'track-mouse))))
  
  (defun tooltip-mouse-motion (event)
    "Command handler for mouse movement events in `global-map'."