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 | ||
478975a9 GM |
7 | ;; Copyright (C) 1994, 1995, 1998, 2006, 2007, 2008 |
8 | ;; Free Software Foundation, Inc. | |
eff05ea1 NR |
9 | |
10 | ;; This file is part of GNU Emacs. | |
11 | ||
eb3fa2cf | 12 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
eff05ea1 | 13 | ;; it under the terms of the GNU General Public License as published by |
eb3fa2cf GM |
14 | ;; the Free Software Foundation, either version 3 of the License, or |
15 | ;; (at your option) any later version. | |
eff05ea1 NR |
16 | |
17 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 | ;; GNU General Public License for more details. | |
9efe4a2d | 21 | |
eff05ea1 | 22 | ;; You should have received a copy of the GNU General Public License |
eb3fa2cf | 23 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
9efe4a2d NR |
24 | |
25 | ;;; Commentary: | |
26 | ||
20d385d6 NR |
27 | ;; This package provides access to mouse event as reported by the gpm-Linux |
28 | ;; package. It tries to reproduce the functionality offered by Emacs under X. | |
9efe4a2d NR |
29 | ;; The "gpm" server runs under Linux, so this package is rather |
30 | ;; Linux-dependent. | |
31 | ||
43180aff NR |
32 | ;; The file, t-mouse.el was originally written by Alessandro Rubini and Ian T |
33 | ;; Zimmerman, and Emacs communicated with gpm through a client program called | |
34 | ;; mev. Now the interface with gpm is directly through a Unix socket, so this | |
35 | ;; file is reduced to a single minor mode macro call. | |
9efe4a2d | 36 | |
20d385d6 | 37 | ;; |
9efe4a2d NR |
38 | \f |
39 | ;;; Code: | |
40 | ||
478975a9 GM |
41 | ;; Prevent warning when compiling in an Emacs without gpm support. |
42 | (declare-function gpm-mouse-start "term.c" ()) | |
43 | ||
3c5a7a3c SM |
44 | (defun gpm-mouse-enable () |
45 | "Try to enable gpm mouse support on the current terminal." | |
46 | (let ((activated nil)) | |
47 | (unwind-protect | |
48 | (progn | |
49 | (unless (fboundp 'gpm-mouse-start) | |
50 | (error "Emacs must be built with Gpm to use this mode")) | |
51 | (when gpm-mouse-mode | |
52 | (gpm-mouse-start) | |
53 | (set-terminal-parameter nil 'gpm-mouse-active t) | |
54 | (setq activated t))) | |
55 | ;; If something failed to turn it on, try to turn it off as well, | |
56 | ;; just in case. | |
57 | (unless activated (gpm-mouse-disable))))) | |
58 | ||
59 | (defun gpm-mouse-disable () | |
60 | "Try to disable gpm mouse support on the current terminal." | |
61 | (when (fboundp 'gpm-mouse-stop) | |
62 | (gpm-mouse-stop)) | |
63 | (set-terminal-parameter nil 'gpm-mouse-active nil)) | |
64 | ||
eff05ea1 | 65 | ;;;###autoload |
0e2806fa SM |
66 | (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") |
67 | ;;;###autoload | |
68 | (define-minor-mode gpm-mouse-mode | |
69 | "Toggle gpm-mouse mode to use the mouse in GNU/Linux consoles. | |
70 | With prefix arg, turn gpm-mouse mode on if arg is positive, | |
71 | otherwise turn it off. | |
eff05ea1 | 72 | |
0e2806fa SM |
73 | This allows the use of the mouse when operating on a GNU/Linux console, |
74 | in the same way as you can use the mouse under X11. | |
75 | It relies on the `gpm' daemon being activated." | |
3c5a7a3c SM |
76 | :global t :group 'mouse :init-value t |
77 | (dolist (terminal (terminal-list)) | |
78 | (when (and (eq t (terminal-live-p terminal)) | |
79 | (not (eq gpm-mouse-mode | |
80 | (terminal-parameter terminal 'gpm-mouse-active)))) | |
81 | ;; Simulate selecting a terminal by selecting one of its frames ;-( | |
82 | (with-selected-frame (car (frames-on-display-list terminal)) | |
83 | (if gpm-mouse-mode (gpm-mouse-enable) (gpm-mouse-disable)))))) | |
9efe4a2d NR |
84 | |
85 | (provide 't-mouse) | |
86 | ||
e1b267c1 | 87 | ;; arch-tag: a63163b3-bfbe-4eb2-ab4f-201cd164b05d |
9efe4a2d | 88 | ;;; t-mouse.el ends here |