Lines Matching defs:mouse
3249 (define-key global-map [mouse-movement] 'gud-tooltip-mouse-motion))
3253 (define-key global-map [mouse-movement] 'ignore)))
3254 (gud-tooltip-activate-mouse-motions-if-enabled)
3303 ;;; Reacting on mouse movements
3307 (add-hook 'post-command-hook 'gud-tooltip-activate-mouse-motions-if-enabled))
3309 (defun gud-tooltip-activate-mouse-motions-if-enabled ()
3310 "Reconsider for all buffers whether mouse motion events are desired."
3312 'gud-tooltip-activate-mouse-motions-if-enabled)
3318 (gud-tooltip-activate-mouse-motions t)
3319 (gud-tooltip-activate-mouse-motions nil)))))
3321 (defvar gud-tooltip-mouse-motions-active nil
3322 "Locally t in a buffer if tooltip processing of mouse motion is enabled.")
3324 ;; We don't set track-mouse globally because this is a big redisplay
3327 ;; set-buffer prevents redisplay optimizations, so every mouse motion
3330 (defun gud-tooltip-activate-mouse-motions (activatep)
3331 "Activate/deactivate mouse motion events for the current buffer.
3332 ACTIVATEP non-nil means activate mouse motion events."
3335 (make-local-variable 'gud-tooltip-mouse-motions-active)
3336 (setq gud-tooltip-mouse-motions-active t)
3337 (make-local-variable 'track-mouse)
3338 (setq track-mouse t))
3339 (when gud-tooltip-mouse-motions-active
3340 (kill-local-variable 'gud-tooltip-mouse-motions-active)
3341 (kill-local-variable 'track-mouse))))
3343 (defun gud-tooltip-mouse-motion (event)
3344 "Command handler for mouse movement events in `global-map'."
3347 (when (car (mouse-pixel-position))
3348 (setq tooltip-last-mouse-motion-event (copy-sequence event))
3361 "The mouse movement event that led to a tooltip display.
3399 "Show tip for identifier or selection under the mouse.
3400 The mouse must either point at an identifier or inside a selected
3423 (window-buffer (let ((mouse (mouse-position)))
3424 (window-at (cadr mouse)
3425 (cddr mouse))))