Mercurial > emacs
annotate lisp/t-mouse.el @ 95329:3bf215f97a31
(vc-string-prefix-p): New function.
(vc-dir-parent-marked-p): Use it.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 27 May 2008 01:13:25 +0000 |
parents | ee5932bf781d |
children | 43c1eff6b631 |
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 |
87924
dab0b3c87425
(gpm-mouse-start): Declare as a function.
Glenn Morris <rgm@gnu.org>
parents:
87649
diff
changeset
|
7 ;; Copyright (C) 1994, 1995, 1998, 2006, 2007, 2008 |
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 |
69189
ec62f416bd30
(t-mouse-tty): Use with-temp-buffer. Add more
Nick Roberts <nickrob@snap.net.nz>
parents:
69185
diff
changeset
|
44 ;;;###autoload |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
45 (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
|
46 ;;;###autoload |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
47 (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
|
48 "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
|
49 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
|
50 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
|
51 |
84970
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
52 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
|
53 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
|
54 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
|
55 :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
|
56 (let ((activated nil)) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
57 (unwind-protect |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
58 (progn |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
59 (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
|
60 (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
|
61 (when gpm-mouse-mode |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
62 (gpm-mouse-start) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
63 (setq activated t))) |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
64 ;; 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
|
65 ;; 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
|
66 ;; just in case. |
3e6ef5f41da8
(gpm-mouse-mode): Rename from t-mouse-mode. Rewrite.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
82365
diff
changeset
|
67 (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
|
68 (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
|
69 (gpm-mouse-stop))))) |
69185
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
70 |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
71 (provide 't-mouse) |
ee54b3a792ff
This version does *not* work with Emacs 22.
Nick Roberts <nickrob@snap.net.nz>
parents:
diff
changeset
|
72 |
69194 | 73 ;; 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
|
74 ;;; t-mouse.el ends here |