Commit | Line | Data |
---|---|---|
9efe4a2d NR |
1 | ;;; t-mouse.el --- mouse support within the text terminal |
2 | ||
20d385d6 NR |
3 | ;; Author: Nick Roberts <nickrob@gnu.org> |
4 | ;; Maintainer: FSF | |
9efe4a2d NR |
5 | ;; Keywords: mouse gpm linux |
6 | ||
15779492 | 7 | ;; Copyright (C) 1994, 1995, 1998, 2006, 2007 Free Software Foundation, Inc. |
eff05ea1 NR |
8 | |
9 | ;; This file is part of GNU Emacs. | |
10 | ||
11 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 | ;; it under the terms of the GNU General Public License as published by | |
b4aa6026 | 13 | ;; the Free Software Foundation; either version 3, or (at your option) |
eff05ea1 NR |
14 | ;; any later version. |
15 | ||
16 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
9efe4a2d | 20 | |
eff05ea1 NR |
21 | ;; You should have received a copy of the GNU General Public License |
22 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
23 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, | |
24 | ;; Boston, MA 02110-1301, USA. | |
9efe4a2d NR |
25 | |
26 | ;;; Commentary: | |
27 | ||
20d385d6 NR |
28 | ;; This package provides access to mouse event as reported by the gpm-Linux |
29 | ;; package. It tries to reproduce the functionality offered by Emacs under X. | |
9efe4a2d NR |
30 | ;; The "gpm" server runs under Linux, so this package is rather |
31 | ;; Linux-dependent. | |
32 | ||
43180aff NR |
33 | ;; The file, t-mouse.el was originally written by Alessandro Rubini and Ian T |
34 | ;; Zimmerman, and Emacs communicated with gpm through a client program called | |
35 | ;; mev. Now the interface with gpm is directly through a Unix socket, so this | |
36 | ;; file is reduced to a single minor mode macro call. | |
9efe4a2d | 37 | |
20d385d6 | 38 | ;; |
9efe4a2d NR |
39 | \f |
40 | ;;; Code: | |
41 | ||
eff05ea1 NR |
42 | ;;;###autoload |
43 | (define-minor-mode t-mouse-mode | |
5073ad8e | 44 | "Toggle t-mouse mode to use the mouse in Linux consoles. |
4837b516 GM |
45 | With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it |
46 | off. | |
eff05ea1 | 47 | |
5073ad8e SM |
48 | This allows the use of the mouse when operating on a Linux console, in the |
49 | same way as you can use the mouse under X11. | |
50 | It requires the `mev' program, part of the `gpm' utilities." | |
9086c6b1 NR |
51 | :global t :group 'mouse |
52 | (if window-system | |
53 | (error "t-mouse only works in the console on GNU/Linux") | |
1a12af30 | 54 | (if t-mouse-mode |
eff05ea1 | 55 | (progn |
20d385d6 | 56 | (unless (fboundp 'term-open-connection) |
43180aff NR |
57 | (progn |
58 | (setq t-mouse-mode nil) | |
59 | (error "Emacs must be built with Gpm to use this mode"))) | |
20d385d6 | 60 | (unless (term-open-connection) |
43180aff NR |
61 | (progn |
62 | (setq t-mouse-mode nil) | |
63 | (error "Can't open mouse connection")))) | |
20d385d6 NR |
64 | ;; Turn it off |
65 | (term-close-connection)))) | |
9efe4a2d NR |
66 | |
67 | (provide 't-mouse) | |
68 | ||
e1b267c1 | 69 | ;; arch-tag: a63163b3-bfbe-4eb2-ab4f-201cd164b05d |
9efe4a2d | 70 | ;;; t-mouse.el ends here |