/[emacs]/emacs/lisp/tooltip.el
ViewVC logotype

Diff of /emacs/lisp/tooltip.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by pj, Sat May 11 08:19:36 2002 UTC revision 1.24 by rms, Wed May 29 16:38:06 2002 UTC
# Line 299  With ARG, turn tooltip mode on if and on Line 299  With ARG, turn tooltip mode on if and on
299            (tooltip-activate-mouse-motions nil))            (tooltip-activate-mouse-motions nil))
300          (setq buffers (cdr buffers))))))          (setq buffers (cdr buffers))))))
301    
302    (defvar tooltip-mouse-motions-active nil
303      "Locally t in a buffer if tooltip processing of mouse motion is enabled.")
304    
305  (defun tooltip-activate-mouse-motions (activatep)  (defun tooltip-activate-mouse-motions (activatep)
306    "Activate/deactivate mouse motion events for the current buffer.    "Activate/deactivate mouse motion events for the current buffer.
307  ACTIVATEP non-nil means activate mouse motion events."  ACTIVATEP non-nil means activate mouse motion events."
308    (if activatep    (if activatep
309        (progn        (progn
310            (make-local-variable 'tooltip-mouse-motions-active)
311            (setq tooltip-mouse-motions-active t)
312          (make-local-variable 'track-mouse)          (make-local-variable 'track-mouse)
313          (setq track-mouse t))          (setq track-mouse t))
314      (kill-local-variable 'track-mouse)))      (when tooltip-mouse-motions-active
315          (kill-local-variable 'tooltip-mouse-motions-active)
316          (kill-local-variable 'track-mouse))))
317    
318  (defun tooltip-mouse-motion (event)  (defun tooltip-mouse-motion (event)
319    "Command handler for mouse movement events in `global-map'."    "Command handler for mouse movement events in `global-map'."

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26