66 |
L scroll-up line to top execute-extended-command |
L scroll-up line to top execute-extended-command |
67 |
C proportional goto-char line to middle mouse-help |
C proportional goto-char line to middle mouse-help |
68 |
R scroll-down line to bottom eval-expression" |
R scroll-down line to bottom eval-expression" |
69 |
|
|
70 |
(interactive) |
(interactive) |
71 |
(let* |
(let* |
72 |
;; expect a string of <esc>:<buttons>;<x-pos>;<y-pos>c |
;; expect a string of <esc>:<buttons>;<x-pos>;<y-pos>c |
150 |
((= buttons mouse-left) |
((= buttons mouse-left) |
151 |
(call-interactively 'execute-extended-command)) |
(call-interactively 'execute-extended-command)) |
152 |
((= buttons mouse-center) |
((= buttons mouse-center) |
153 |
(describe-function 'sup-mouse-report)); silly self help |
(describe-function 'sup-mouse-report)); silly self help |
154 |
)) |
)) |
155 |
(t ;in another window |
(t ;in another window |
156 |
(select-window window) |
(select-window window) |