Lines Matching +defs:down +defs:mouse
33 (defun scroll-down-in-place (n)
36 (scroll-down n))
94 ;; so we ignore them on the way down
146 ;; First mouse blip is a clue that we are in emacstool.
148 ;; C-x C-@ is the mouse command prefix.
150 (autoload 'sun-mouse-handler "sun-mouse"
151 "Sun Emacstool handler for mouse blips (not loaded)." t)
167 ;; (define-key sun-raw-prefix "196z" 'ignore) ; Expose-down
169 ;; (define-key sun-raw-prefix "198z" 'ignore) ; Open-down
186 (define-key sun-raw-prefix "B" [down]) ; R14
193 (global-set-key [r9] 'scroll-down)
202 (global-set-key [f3] 'scroll-down-in-place)
216 (define-key suntool-map "ir" 'scroll-down) ; r9
247 (define-key suntool-map "cT" (lambda (n) (interactive "p") (scroll-down n)))
249 (define-key suntool-map "ct" 'scroll-down-in-place) ; t3
260 (define-key ctl-x-map "\C-@" 'sun-mouse-once))
264 ;; Make sure sun-mouse and sun-fns are loaded.
266 (define-key ctl-x-map "\C-@" 'sun-mouse-handler)
278 (defun sun-mouse-once ()
279 "Converts to emacstool and sun-mouse-handler on first mouse hit."
282 (sun-mouse-handler)) ; Now, execute this mouse blip.