Lines Matching defs:mouse
795 (defvar mouse-autoselect-window-timer nil
798 (defvar mouse-autoselect-window-position nil
799 "Last mouse position recorded by delayed window autoselection.")
801 (defvar mouse-autoselect-window-window nil
804 (defvar mouse-autoselect-window-state nil
810 (defun mouse-autoselect-window-cancel (&optional force)
818 (setq mouse-autoselect-window-state nil)
819 (when (timerp mouse-autoselect-window-timer)
820 (cancel-timer mouse-autoselect-window-timer))
821 (remove-hook 'pre-command-hook 'mouse-autoselect-window-cancel)))
823 (defun mouse-autoselect-window-start (mouse-position &optional window suspend)
825 MOUSE-POSITION is the last position where the mouse was seen as returned
826 by `mouse-position'. Optional argument WINDOW non-nil denotes the
827 window where the mouse was seen. Optional argument SUSPEND non-nil
830 (setq mouse-autoselect-window-position mouse-position)
831 (when window (setq mouse-autoselect-window-window window))
832 (setq mouse-autoselect-window-state (when suspend 'suspend))
833 ;; Install timer which runs `mouse-autoselect-window-select' after
834 ;; `mouse-autoselect-window' seconds.
835 (setq mouse-autoselect-window-timer
837 (abs mouse-autoselect-window) nil 'mouse-autoselect-window-select)))
839 (defun mouse-autoselect-window-select ()
841 If the mouse position has stabilized in a non-selected window, select
843 active. This function is run by `mouse-autoselect-window-timer'."
845 (let* ((mouse-position (mouse-position))
848 (window-at (cadr mouse-position) (cddr mouse-position)
849 (car mouse-position))
854 (not (coordinates-in-window-p (cdr mouse-position) window))))
855 ;; A menu / popup dialog is active or the mouse is on the scroll-bar
857 (mouse-autoselect-window-start mouse-position nil t))
858 ((eq mouse-autoselect-window-state 'suspend)
860 (mouse-autoselect-window-start mouse-position))
862 (or (not (numberp mouse-autoselect-window))
863 (and (> mouse-autoselect-window 0)
864 ;; If `mouse-autoselect-window' is positive, select
866 (eq window mouse-autoselect-window-window))
867 ;; Otherwise select window iff the mouse is at the same
870 ;; `mouse-autoselect-window-position' recorded there is the
871 ;; position where the mouse has entered the new window and
872 ;; not necessarily where the mouse has stopped moving.
873 (equal mouse-position mouse-autoselect-window-position))
879 (mouse-autoselect-window-cancel t)
880 ;; Select window where mouse appears unless the selected window is the
883 ;; autoselection again, set `mouse-autoselect-window-state'."
885 (setq mouse-autoselect-window-state 'select)
890 (not (numberp mouse-autoselect-window))
891 (equal mouse-position mouse-autoselect-window-position))
893 ;; `mouse-autoselect-window-position': Cancel delayed autoselection.
894 (mouse-autoselect-window-cancel t))
898 (mouse-autoselect-window-start mouse-position window))))
909 ;; your mouse all the way down to the minibuffer to select it.
914 (unless (and (numberp mouse-autoselect-window)
915 (not (zerop mouse-autoselect-window))
916 (not (eq mouse-autoselect-window-state 'select))
919 (mouse-autoselect-window-cancel t)
920 ;; Start delayed autoselection from current mouse position
922 (mouse-autoselect-window-start (mouse-position) window)
925 'pre-command-hook 'mouse-autoselect-window-cancel)))
927 (setq mouse-autoselect-window-state nil)
928 (when mouse-autoselect-window
929 ;; Run `mouse-leave-buffer-hook' when autoselecting window.
930 (run-hooks 'mouse-leave-buffer-hook))