Mercurial > emacs
annotate lisp/t-mouse.el @ 84197:0c15c259faf5
Move to ../doc/emacs/, misc/
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Thu, 06 Sep 2007 04:40:24 +0000 |
parents | e5a68f18fcb9 |
children | 3e6ef5f41da8 |
rev | line source |
---|---|
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
1 ;;; t-mouse.el --- mouse support within the text terminal |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
2 |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
3 ;; Author: Nick Roberts <nickrob@gnu.org> |
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
4 ;; Maintainer: FSF |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
5 ;; Keywords: mouse gpm linux |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
6 |
75298
c5e686c22f72
Update copyright following assignment by
Nick Roberts <nickrob@snap.net.nz>
parents:
73753
diff
changeset
|
7 ;; Copyright (C) 1994, 1995, 1998, 2006, 2007 Free Software Foundation, Inc. |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
8 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
10 |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
77756
diff
changeset
|
13 ;; the Free Software Foundation; either version 3, or (at your option) |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
14 ;; any later version. |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
15 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
19 ;; GNU General Public License for more details. |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
20 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
24 ;; Boston, MA 02110-1301, USA. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
25 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
26 ;;; Commentary: |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
27 |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
28 ;; This package provides access to mouse event as reported by the gpm-Linux |
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
29 ;; package. It tries to reproduce the functionality offered by Emacs under X. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
30 ;; The "gpm" server runs under Linux, so this package is rather |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
31 ;; Linux-dependent. |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
32 |
81004
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
33 ;; The file, t-mouse.el was originally written by Alessandro Rubini and Ian T |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
34 ;; Zimmerman, and Emacs communicated with gpm through a client program called |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
35 ;; mev. Now the interface with gpm is directly through a Unix socket, so this |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
36 ;; file is reduced to a single minor mode macro call. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
37 |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
38 ;; |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
39 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
40 ;;; Code: |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
41 |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
42 ;;;###autoload |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
43 (define-minor-mode t-mouse-mode |
77756
7d0f49cdc5da
(t-mouse-mode): Improve docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77398
diff
changeset
|
44 "Toggle t-mouse mode to use the mouse in Linux consoles. |
78492
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
45 With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it |
7c8949dbfa0d
Replace `iff' in doc-strings and comments.
Glenn Morris <rgm@gnu.org>
parents:
78236
diff
changeset
|
46 off. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
47 |
77756
7d0f49cdc5da
(t-mouse-mode): Improve docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77398
diff
changeset
|
48 This allows the use of the mouse when operating on a Linux console, in the |
7d0f49cdc5da
(t-mouse-mode): Improve docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77398
diff
changeset
|
49 same way as you can use the mouse under X11. |
7d0f49cdc5da
(t-mouse-mode): Improve docstring.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
77398
diff
changeset
|
50 It requires the `mev' program, part of the `gpm' utilities." |
81000
f273808d859e
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80990
diff
changeset
|
51 :global t :group 'mouse |
f273808d859e
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80990
diff
changeset
|
52 (if window-system |
f273808d859e
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80990
diff
changeset
|
53 (error "t-mouse only works in the console on GNU/Linux") |
80848
03a94cbf631a
(t-mouse-mode): Do nothing on a graphical display
Nick Roberts <nickrob@snap.net.nz>
parents:
77398
diff
changeset
|
54 (if t-mouse-mode |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
55 (progn |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
56 (unless (fboundp 'term-open-connection) |
81004
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
57 (progn |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
58 (setq t-mouse-mode nil) |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
59 (error "Emacs must be built with Gpm to use this mode"))) |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
60 (unless (term-open-connection) |
81004
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
61 (progn |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
62 (setq t-mouse-mode nil) |
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
63 (error "Can't open mouse connection")))) |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
64 ;; Turn it off |
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
65 (term-close-connection)))) |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
66 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
67 (provide 't-mouse) |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
68 |
69194 | 69 ;; arch-tag: a63163b3-bfbe-4eb2-ab4f-201cd164b05d |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
70 ;;; t-mouse.el ends here |