Mercurial > emacs
annotate lisp/t-mouse.el @ 91347:5c68d57a8dab
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Tue, 22 Jan 2008 12:03:33 +0000 |
parents | 107ccd98fa12 |
children | dab0b3c87425 |
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 |
79721 | 7 ;; Copyright (C) 1994, 1995, 1998, 2006, 2007, 2008 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 |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
43 (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
|
44 ;;;###autoload |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
45 (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
|
46 "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
|
47 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
|
48 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
|
49 |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
50 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
|
51 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
|
52 It relies on the `gpm' daemon being activated." |
81000
f273808d859e
Reduce to a minor-mode macro call.
Nick Roberts <nickrob@snap.net.nz>
parents:
80990
diff
changeset
|
53 :global t :group 'mouse |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
54 (let ((activated nil)) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
55 (unwind-protect |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
56 (progn |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
57 (unless (fboundp 'gpm-mouse-start) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
58 (error "Emacs must be built with Gpm to use this mode")) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
59 (when gpm-mouse-mode |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
60 (gpm-mouse-start) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
61 (setq activated t))) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
62 ;; If the user asked to turn it off do that. |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
63 ;; If something failed to turn it on, try to turn it off as well, |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
64 ;; just in case. |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
65 (when (and (fboundp 'gpm-mouse-stop) (not activated)) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
66 (setq gpm-mouse-mode nil) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
67 (gpm-mouse-stop))))) |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
68 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
69 (provide 't-mouse) |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
70 |
69194 | 71 ;; 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
|
72 ;;; t-mouse.el ends here |