Mercurial > emacs
annotate lisp/xt-mouse.el @ 24419:30e478cd167e
(shell-command-default-error-buffer): Renamed from
shell-command-on-region-default-error-buffer.
(shell-command-on-region): Mention in echo area when there
is some error output. Mention success or failure, too.
Accumulate multiple error outputs
going forward, with formfeed in between. Display the error buffer
when we have put something in it.
(shell-command): Add the ERROR-BUFFER argument feature.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 01 Mar 1999 03:19:32 +0000 |
parents | d60ff4432412 |
children | 5b4cb85d9312 |
rev | line source |
---|---|
13163 | 1 ;;; xt-mouse.el --- Support the mouse when emacs run in an xterm. |
14169 | 2 |
13163 | 3 ;; Copyright (C) 1994 Free Software Foundation |
4 | |
17982 | 5 ;; Author: Per Abrahamsen <abraham@dina.kvl.dk> |
13163 | 6 ;; Keywords: mouse, terminals |
7 | |
14169 | 8 ;; This file is part of GNU Emacs. |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13163 | 11 ;; it under the terms of the GNU General Public License as published by |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14169 | 14 |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
13163 | 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
14169 | 19 |
13163 | 20 ;; You should have received a copy of the GNU General Public License |
14169 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
13163 | 24 |
25 ;;; Comments: | |
26 | |
14750 | 27 ;; Enable mouse support when running inside an xterm or Linux console. |
13163 | 28 |
29 ;; This is actually useful when you are running X11 locally, but is | |
30 ;; working on remote machine over a modem line or through a gateway. | |
31 | |
32 ;; It works by translating xterm escape codes into generic emacs mouse | |
33 ;; events so it should work with any package that uses the mouse. | |
34 | |
14750 | 35 ;; The xterm mouse escape codes are supposedly also supported by the |
36 ;; Linux console, but I have not been able to verify this. | |
37 | |
38 ;; You don't have to turn off xterm mode to use the normal xterm mouse | |
39 ;; functionality, it is still available by holding down the SHIFT key | |
40 ;; when you press the mouse button. | |
41 | |
13163 | 42 ;;; Todo: |
43 | |
44 ;; Support multi-click -- somehow. | |
45 | |
46 ;; Clicking on the mode-line does not work, although it should. | |
47 | |
48 ;;; Code: | |
49 | |
50 (define-key function-key-map "\e[M" 'xterm-mouse-translate) | |
51 | |
13920
3a5b5eeba5b5
(xterm-mouse-translate, xterm-mouse-event):
Richard M. Stallman <rms@gnu.org>
parents:
13500
diff
changeset
|
52 (defvar xterm-mouse-last) |
3a5b5eeba5b5
(xterm-mouse-translate, xterm-mouse-event):
Richard M. Stallman <rms@gnu.org>
parents:
13500
diff
changeset
|
53 |
13163 | 54 (defun xterm-mouse-translate (event) |
55 ;; Read a click and release event from XTerm. | |
56 (save-excursion | |
57 (save-window-excursion | |
58 (deactivate-mark) | |
13920
3a5b5eeba5b5
(xterm-mouse-translate, xterm-mouse-event):
Richard M. Stallman <rms@gnu.org>
parents:
13500
diff
changeset
|
59 (let* ((xterm-mouse-last) |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
60 (down (xterm-mouse-event)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
61 (down-command (nth 0 down)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
62 (down-data (nth 1 down)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
63 (down-where (nth 1 down-data)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
64 (down-binding (key-binding (if (symbolp down-where) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
65 (vector down-where down-command) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
66 (vector down-command))))) |
13163 | 67 (or (and (eq (read-char) ?\e) |
68 (eq (read-char) ?\[) | |
69 (eq (read-char) ?M)) | |
70 (error "Unexpected escape sequence from XTerm")) | |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
71 (let* ((click (xterm-mouse-event)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
72 (click-command (nth 0 click)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
73 (click-data (nth 1 click)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
74 (click-where (nth 1 click-data))) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
75 (if (memq down-binding '(nil ignore)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
76 (if (and (symbolp click-where) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
77 (not (eq 'menu-bar click-where))) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
78 (vector (list click-where click-data) click) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
79 (vector click)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
80 (setq unread-command-events |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
81 (if (eq down-where click-where) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
82 (list click) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
83 (list |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
84 ;; Cheat `mouse-drag-region' with move event. |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
85 (list 'mouse-movement click-data) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
86 ;; Generate a drag event. |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
87 (if (symbolp down-where) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
88 0 |
21270
3f500b8d6964
(xterm-mouse-translate, xterm-mouse-event): Replace
Andreas Schwab <schwab@suse.de>
parents:
17982
diff
changeset
|
89 (list (intern (format "drag-mouse-%d" (+ 1 xterm-mouse-last))) |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
90 down-data click-data)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
91 ))) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
92 (if (and (symbolp down-where) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
93 (not (eq 'menu-bar down-where))) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
94 (vector (list down-where down-data) down) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
95 (vector down)))))))) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
96 |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
97 (defvar xterm-mouse-x 0 |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
98 "Position of last xterm mouse event relative to the frame.") |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
99 |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
100 (defvar xterm-mouse-y 0 |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
101 "Position of last xterm mouse event relative to the frame.") |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
102 |
23823
d60ff4432412
(xterm-mouse-mode): Pacify the byte compiler.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
21270
diff
changeset
|
103 ;; Indicator for the xterm-mouse mode. |
d60ff4432412
(xterm-mouse-mode): Pacify the byte compiler.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
21270
diff
changeset
|
104 (defvar xterm-mouse-mode nil) |
d60ff4432412
(xterm-mouse-mode): Pacify the byte compiler.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
21270
diff
changeset
|
105 |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
106 (defadvice mouse-position (around xterm-mouse activate) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
107 "Use last key from xterm-mouse-mode if available." |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
108 (let ((answer ad-do-it)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
109 (setq ad-return-value |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
110 (if xterm-mouse-mode |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
111 (cons (car answer) (cons xterm-mouse-x xterm-mouse-y)) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
112 answer)))) |
13163 | 113 |
114 (defun xterm-mouse-event () | |
115 ;; Convert XTerm mouse event to Emacs mouse event. | |
116 (let* ((type (- (read-char) ? )) | |
117 (x (- (read-char) ? 1)) | |
118 (y (- (read-char) ? 1)) | |
119 (point (cons x y)) | |
120 (window (window-at x y)) | |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
121 (where (if window |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
122 (coordinates-in-window-p point window) |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
123 'menu-bar)) |
13163 | 124 (pos (if (consp where) |
125 (progn | |
126 (select-window window) | |
127 (goto-char (window-start window)) | |
128 (move-to-window-line (cdr where)) | |
129 (move-to-column (+ (car where) (current-column) | |
15331
8cf5ec9e5058
(xterm-mouse-event): Adjust for minibuffer prompt width.
Richard M. Stallman <rms@gnu.org>
parents:
14750
diff
changeset
|
130 (if (string-match "\\` \\*Minibuf" |
8cf5ec9e5058
(xterm-mouse-event): Adjust for minibuffer prompt width.
Richard M. Stallman <rms@gnu.org>
parents:
14750
diff
changeset
|
131 (buffer-name)) |
8cf5ec9e5058
(xterm-mouse-event): Adjust for minibuffer prompt width.
Richard M. Stallman <rms@gnu.org>
parents:
14750
diff
changeset
|
132 (- (minibuffer-prompt-width)) |
8cf5ec9e5058
(xterm-mouse-event): Adjust for minibuffer prompt width.
Richard M. Stallman <rms@gnu.org>
parents:
14750
diff
changeset
|
133 0) |
13163 | 134 (max 0 (1- (window-hscroll))))) |
135 (point)) | |
136 where)) | |
137 (mouse (intern (if (eq type 3) | |
21270
3f500b8d6964
(xterm-mouse-translate, xterm-mouse-event): Replace
Andreas Schwab <schwab@suse.de>
parents:
17982
diff
changeset
|
138 (format "mouse-%d" (+ 1 xterm-mouse-last)) |
13920
3a5b5eeba5b5
(xterm-mouse-translate, xterm-mouse-event):
Richard M. Stallman <rms@gnu.org>
parents:
13500
diff
changeset
|
139 (setq xterm-mouse-last type) |
21270
3f500b8d6964
(xterm-mouse-translate, xterm-mouse-event): Replace
Andreas Schwab <schwab@suse.de>
parents:
17982
diff
changeset
|
140 (format "down-mouse-%d" (+ 1 type)))))) |
13500
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
141 (setq xterm-mouse-x x |
5de4c8a3f702
(global-map): Removed bindings of down events to ignore.
Richard M. Stallman <rms@gnu.org>
parents:
13163
diff
changeset
|
142 xterm-mouse-y y) |
13163 | 143 (list mouse |
144 (list window pos point | |
145 (/ (nth 2 (current-time)) 1000))))) | |
146 | |
147 (or (assq 'xterm-mouse-mode minor-mode-alist) | |
148 (setq minor-mode-alist | |
149 (cons '(xterm-mouse-mode (" Mouse")) minor-mode-alist))) | |
150 | |
151 ;;;###autoload | |
152 (defun xterm-mouse-mode (arg) | |
153 "Toggle XTerm mouse mode. | |
154 With prefix arg, turn XTerm mouse mode on iff arg is positive. | |
155 | |
156 Turn it on to use emacs mouse commands, and off to use xterm mouse commands." | |
157 (interactive "P") | |
158 (if (or (and (null arg) xterm-mouse-mode) | |
159 (<= (prefix-numeric-value arg) 0)) | |
160 ;; Turn it off | |
161 (if xterm-mouse-mode | |
162 (progn | |
163 (turn-off-xterm-mouse-tracking) | |
164 (setq xterm-mouse-mode nil) | |
165 (set-buffer-modified-p (buffer-modified-p)))) | |
166 ;;Turn it on | |
167 (if xterm-mouse-mode | |
168 () | |
169 (setq xterm-mouse-mode t) | |
170 (turn-on-xterm-mouse-tracking) | |
171 (set-buffer-modified-p (buffer-modified-p))))) | |
172 | |
173 (defun turn-on-xterm-mouse-tracking () | |
174 ;; Enable emacs mouse tracking in xterm. | |
175 (if xterm-mouse-mode | |
176 (send-string-to-terminal "\e[?1000h"))) | |
177 | |
178 (defun turn-off-xterm-mouse-tracking () | |
179 ;; Disable disable emacs mouse tracking in xterm. | |
180 (if xterm-mouse-mode | |
181 (send-string-to-terminal "\e[?1000l"))) | |
182 | |
183 ;; Restore normal mouse behaviour outside Emacs. | |
184 (add-hook 'suspend-hook 'turn-off-xterm-mouse-tracking) | |
185 (add-hook 'suspend-resume-hook 'turn-on-xterm-mouse-tracking) | |
186 (add-hook 'kill-emacs-hook 'turn-off-xterm-mouse-tracking) | |
187 | |
188 (provide 'xt-mouse) | |
189 | |
190 ;;; xt-mouse.el ends here |