Mercurial > emacs
annotate lisp/t-mouse.el @ 104215:eec5a3966960
* subr.el: Provide hashtable-print-readable.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 09 Aug 2009 02:57:45 +0000 |
parents | a9dc0e7c3f2b |
children | 1d1d5d9bd884 |
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 |
100908 | 7 ;; Copyright (C) 1994, 1995, 1998, 2006, 2007, 2008, 2009 |
87924
dab0b3c87425
(gpm-mouse-start): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
8 ;; 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
|
9 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
10 ;; 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
|
11 |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87924
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87924
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87924
diff
changeset
|
15 ;; (at your option) any later version. |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
16 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
17 ;; 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
|
18 ;; 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
|
19 ;; 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
|
20 ;; 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
|
21 |
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License |
94678
ee5932bf781d
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
87924
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
24 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
25 ;;; Commentary: |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
26 |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
27 ;; 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
|
28 ;; 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
|
29 ;; 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
|
30 ;; Linux-dependent. |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
31 |
81004
74965b1ffc6f
(t-mouse-mode): Reset t-mouse-mode to nil if there
Nick Roberts <nickrob@snap.net.nz>
parents:
81000
diff
changeset
|
32 ;; 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
|
33 ;; 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
|
34 ;; 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
|
35 ;; 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
|
36 |
80989
ce6c8b83a99a
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80848
diff
changeset
|
37 ;; |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
38 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
39 ;;; Code: |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
40 |
87924
dab0b3c87425
(gpm-mouse-start): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
41 ;; Prevent warning when compiling in an Emacs without gpm support. |
dab0b3c87425
(gpm-mouse-start): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
42 (declare-function gpm-mouse-start "term.c" ()) |
dab0b3c87425
(gpm-mouse-start): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
43 |
95807
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
44 (defun gpm-mouse-enable () |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
45 "Try to enable gpm mouse support on the current terminal." |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
46 (let ((activated nil)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
47 (unwind-protect |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
48 (progn |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
49 (unless (fboundp 'gpm-mouse-start) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
50 (error "Emacs must be built with Gpm to use this mode")) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
51 (when gpm-mouse-mode |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
52 (gpm-mouse-start) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
53 (set-terminal-parameter nil 'gpm-mouse-active t) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
54 (setq activated t))) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
55 ;; If something failed to turn it on, try to turn it off as well, |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
56 ;; just in case. |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
57 (unless activated (gpm-mouse-disable))))) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
58 |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
59 (defun gpm-mouse-disable () |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
60 "Try to disable gpm mouse support on the current terminal." |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
61 (when (fboundp 'gpm-mouse-stop) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
62 (gpm-mouse-stop)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
63 (set-terminal-parameter nil 'gpm-mouse-active nil)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
64 |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
65 ;;;###autoload |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
66 (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
67 ;;;###autoload |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
68 (define-minor-mode gpm-mouse-mode |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
69 "Toggle gpm-mouse mode to use the mouse in GNU/Linux consoles. |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
70 With prefix arg, turn gpm-mouse mode on if arg is positive, |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
71 otherwise turn it off. |
73753
3480cc226de3
(t-mouse-process, t-mouse-mode): Fix typos in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents:
72199
diff
changeset
|
72 |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
73 This allows the use of the mouse when operating on a GNU/Linux console, |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
74 in the same way as you can use the mouse under X11. |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
75 It relies on the `gpm' daemon being activated." |
95807
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
76 :global t :group 'mouse :init-value t |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
77 (dolist (terminal (terminal-list)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
78 (when (and (eq t (terminal-live-p terminal)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
79 (not (eq gpm-mouse-mode |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
80 (terminal-parameter terminal 'gpm-mouse-active)))) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
81 ;; Simulate selecting a terminal by selecting one of its frames ;-( |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
82 (with-selected-frame (car (frames-on-display-list terminal)) |
43c1eff6b631
* t-mouse.el (gpm-mouse-enable, gpm-mouse-disable): New functions.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
94678
diff
changeset
|
83 (if gpm-mouse-mode (gpm-mouse-enable) (gpm-mouse-disable)))))) |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
84 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
85 (provide 't-mouse) |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
86 |
69194 | 87 ;; 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
|
88 ;;; t-mouse.el ends here |