/[emacs]/emacs/lisp/term/sup-mouse.el
ViewVC logotype

Diff of /emacs/lisp/term/sup-mouse.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by gerd, Fri Sep 7 11:34:17 2001 UTC revision 1.10.8.1 by miles, Fri Apr 4 06:20:37 2003 UTC
# Line 66  on modeline                on \"scroll bar\"   in mi Line 66  on modeline                on \"scroll bar\"   in mi
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
# Line 150  on modeline                on \"scroll bar\"   in mi Line 150  on modeline                on \"scroll bar\"   in mi
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)

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.10.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26