annotate lisp/t-mouse.el @ 87394:06a2cf746b9d

(use-region-p): Renamed from `region-active-p'.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2007 22:12:56 +0000
parents 3e6ef5f41da8
children 107ccd98fa12
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
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.
69185
ee54b3a792ff This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
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
4c0f4c81c362 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 69189
diff changeset
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