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) ?\[) |
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 |
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 |