/[emacs]/emacs/lisp/xt-mouse.el
ViewVC logotype

Diff of /emacs/lisp/xt-mouse.el

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

revision 1.16 by monnier, Fri Apr 12 03:33:20 2002 UTC revision 1.16.2.1 by miles, Fri Apr 4 06:20:13 2003 UTC
# Line 65  Line 65 
65                                              (vector down-where down-command)                                              (vector down-where down-command)
66                                            (vector down-command))))                                            (vector down-command))))
67               (is-click (string-match "^mouse" (symbol-name (car down)))))               (is-click (string-match "^mouse" (symbol-name (car down)))))
68                
69          (unless is-click          (unless is-click
70            (unless (and (eq (read-char) ?\e)            (unless (and (eq (read-char) ?\e)
71                         (eq (read-char) ?\[)                         (eq (read-char) ?\[)
# Line 140  Line 140 
140                                         (max 0 (1- (window-hscroll)))))                                         (max 0 (1- (window-hscroll)))))
141                      (point))                      (point))
142                  where))                  where))
143           (mouse (intern           (mouse (intern
144                   ;; For buttons > 3, the release-event looks                   ;; For buttons > 3, the release-event looks
145                   ;; differently (see xc/programs/xterm/button.c,                   ;; differently (see xc/programs/xterm/button.c,
146                   ;; function EditorButton), and there seems to come in                   ;; function EditorButton), and there seems to come in
# Line 164  Line 164 
164  With prefix arg, turn XTerm mouse mode on iff arg is positive.  With prefix arg, turn XTerm mouse mode on iff arg is positive.
165    
166  Turn it on to use emacs mouse commands, and off to use xterm mouse commands."  Turn it on to use emacs mouse commands, and off to use xterm mouse commands."
167    nil " Mouse" nil    nil " Mouse" nil :global t
168    (if xterm-mouse-mode    (if xterm-mouse-mode
169        ;; Turn it on        ;; Turn it on
170        (unless window-system        (unless window-system

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.16.2.1

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