Lines Matching refs:down
37 ;; functionality, it is still available by holding down the SHIFT key
53 M-down-mouse-1 M-down-mouse-2 M-down-mouse-3))
62 (down (xterm-mouse-event))
63 (down-command (nth 0 down))
64 (down-data (nth 1 down))
65 (down-where (nth 1 down-data))
66 (down-binding (key-binding (if (symbolp down-where)
67 (vector down-where down-command)
68 (vector down-command))))
69 (is-click (string-match "^mouse" (symbol-name (car down)))))
77 (let* ((click (if is-click down (xterm-mouse-event)))
81 (if (memq down-binding '(nil ignore))
87 (if (eq down-where click-where)
93 (if (symbolp down-where)
97 down-data click-data)))))
98 (if (and (symbolp down-where)
99 (consp down-where))
100 (vector (list down-where down-data) down)
101 (vector down))))))))
157 ;; a release-event only, no down-event.
162 (format "M-down-mouse-%d" (- type 7)))
169 (format "down-mouse-%d" (+ 1 type))))))
197 down the SHIFT key while pressing the mouse button."