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'." |