annotate lisp/t-mouse.el @ 95189:70380eb2fa9d

(x_update_menu_appearance): Call Ffont_xlfd_name with two args.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 May 2008 03:47:34 +0000
parents ee5932bf781d
children 43c1eff6b631
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
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
4c0f4c81c362 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 69189
diff changeset
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