Mercurial > emacs
comparison lisp/tooltip.el @ 45571:04484b8dacdc
(tooltip-mouse-motions-active): New variable.
(tooltip-activate-mouse-motions): Don't kill track-mouse local
if it was not made by us.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 29 May 2002 16:38:06 +0000 |
| parents | ebc4fa4ef475 |
| children | ce0d438fe05e |
comparison
equal
deleted
inserted
replaced
| 45570:1739a350f81c | 45571:04484b8dacdc |
|---|---|
| 297 (memq major-mode tooltip-gud-modes)) | 297 (memq major-mode tooltip-gud-modes)) |
| 298 (tooltip-activate-mouse-motions t) | 298 (tooltip-activate-mouse-motions t) |
| 299 (tooltip-activate-mouse-motions nil)) | 299 (tooltip-activate-mouse-motions nil)) |
| 300 (setq buffers (cdr buffers)))))) | 300 (setq buffers (cdr buffers)))))) |
| 301 | 301 |
| 302 (defvar tooltip-mouse-motions-active nil | |
| 303 "Locally t in a buffer if tooltip processing of mouse motion is enabled.") | |
| 302 | 304 |
| 303 (defun tooltip-activate-mouse-motions (activatep) | 305 (defun tooltip-activate-mouse-motions (activatep) |
| 304 "Activate/deactivate mouse motion events for the current buffer. | 306 "Activate/deactivate mouse motion events for the current buffer. |
| 305 ACTIVATEP non-nil means activate mouse motion events." | 307 ACTIVATEP non-nil means activate mouse motion events." |
| 306 (if activatep | 308 (if activatep |
| 307 (progn | 309 (progn |
| 310 (make-local-variable 'tooltip-mouse-motions-active) | |
| 311 (setq tooltip-mouse-motions-active t) | |
| 308 (make-local-variable 'track-mouse) | 312 (make-local-variable 'track-mouse) |
| 309 (setq track-mouse t)) | 313 (setq track-mouse t)) |
| 310 (kill-local-variable 'track-mouse))) | 314 (when tooltip-mouse-motions-active |
| 311 | 315 (kill-local-variable 'tooltip-mouse-motions-active) |
| 316 (kill-local-variable 'track-mouse)))) | |
| 312 | 317 |
| 313 (defun tooltip-mouse-motion (event) | 318 (defun tooltip-mouse-motion (event) |
| 314 "Command handler for mouse movement events in `global-map'." | 319 "Command handler for mouse movement events in `global-map'." |
| 315 (interactive "e") | 320 (interactive "e") |
| 316 (tooltip-hide) | 321 (tooltip-hide) |