annotate lisp/t-mouse.el @ 103508:b3c1a923f213

* xdisp.c (Qbefore_string, Qafter_string): Add externs. (load_overlay_strings): Remove externs. (fast_find_position): Function deleted. (mouse_face_from_buffer_pos): New function, based on fast_find_position. Correctly handle before-strings, display-strings, and after-strings (Bug#1220). (note_mouse_highlight): Use mouse_face_from_buffer_pos.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 22 Jun 2009 01:53:11 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
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
100908
a9dc0e7c3f2b Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 95807
diff changeset
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
4c0f4c81c362 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 69189
diff changeset
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