Lines Matching defs:mouse
1 ;;; sup-mouse.el --- supdup mouse support for lisp machines
36 (defvar sup-mouse-fast-select-window nil
37 "*Non-nil for mouse hits to select new window, then execute; else just select.")
39 (defconst mouse-left 0)
40 (defconst mouse-center 1)
41 (defconst mouse-right 2)
43 (defconst mouse-2left 4)
44 (defconst mouse-2center 5)
45 (defconst mouse-2right 6)
47 (defconst mouse-3left 8)
48 (defconst mouse-3center 9)
49 (defconst mouse-3right 10)
53 (defun sup-mouse-report ()
54 "This function is called directly by the mouse, it parses and
55 executes the mouse commands.
57 L move point * |---- These apply for mouse click in a window.
59 3L copy word | If sup-mouse-fast-select-window is nil,
68 C proportional goto-char line to middle mouse-help
87 ; (error "mouse-hit %d %d %d" buttons x y) ;;;; debug
91 (cond ((= buttons mouse-left)
93 ((= buttons mouse-right)
95 ((= buttons mouse-center)
105 (cond ((= buttons mouse-left)
107 ((= buttons mouse-right)
109 ((= buttons mouse-center)
115 (cond ((= buttons mouse-left)
117 ((= buttons mouse-2left)
120 ((= buttons mouse-3left)
127 ((= buttons mouse-right)
131 ((= buttons mouse-2right)
135 ((= buttons mouse-3right)
140 ((= buttons mouse-center)
144 ((= buttons mouse-2center)
149 (cond ((= buttons mouse-right)
151 ((= buttons mouse-left)
153 ((= buttons mouse-center)
154 (describe-function 'sup-mouse-report)); silly self help
158 (cond ((not sup-mouse-fast-select-window))
159 ((= buttons mouse-left)
161 ((= buttons mouse-right)
165 ((= buttons mouse-center)
185 (error "Invalid data format in mouse command"))
202 ;;; sup-mouse.el ends here