Mercurial > hg > xemacs-beta

annotate lisp/gpm.el @ 5015:d95c102a96d3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
cleanups for specifier font stages, from ben-unicode-internal (preparation for eliminating shadowed warnings) -------------------- ChangeLog entries follow: -------------------- src/ChangeLog addition: 2010-02-08 Ben Wing <ben@xemacs.org> * faces.c: * faces.c (face_property_matching_instance): * faces.c (ensure_face_cachel_contains_charset): * faces.h (FACE_FONT): * lisp.h: * lisp.h (enum font_specifier_matchspec_stages): * objects-msw.c: * objects-msw.c (mswindows_font_spec_matches_charset): * objects-msw.c (mswindows_find_charset_font): * objects-tty.c: * objects-tty.c (tty_font_spec_matches_charset): * objects-tty.c (tty_find_charset_font): * objects-xlike-inc.c: * objects-xlike-inc.c (XFUN): * objects-xlike-inc.c (xft_find_charset_font): * objects.c: * objects.c (font_instantiate): * objects.c (FROB): * specifier.c: * specifier.c (charset_matches_specifier_tag_set_p): * specifier.c (call_charset_predicate): * specifier.c (define_specifier_tag): * specifier.c (Fdefine_specifier_tag): * specifier.c (setup_charset_initial_specifier_tags): * specifier.c (specifier_instance_from_inst_list): * specifier.c (FROB): * specifier.c (vars_of_specifier): * specifier.h: Rename the specifier-font-matching stages in preparation for eliminating shadowed warnings, some other related fixes from ben-unicode-internal. 1. Rename raw enums: initial -> STAGE_INITIAL final -> STAGE_FINAL impossible -> NUM_MATCHSPEC_STAGES 2. Move `enum font_specifier_matchspec_stages' from specifier.h to lisp.h. 3. Whitespace changes to match coding standards. 4. Eliminate unused second argument STAGE in charset predicates that don't use it -- the code that calls the charset predicates is now smart enough to supply the right number of arguments automatically. 5. Add some long(ish) comments and authorial notices, esp. in objects.c. 6. In specifier.c, change Vcharset_tag_lists from a vector over leading bytes to a hash table over charsets. This change is unnecessary currently but doesn't hurt and will be required when we merge in Unicode-internal. 7. In specifier.c, extract out the code that calls charset predicates into a function call_charset_predicate().
author Ben Wing <ben@xemacs.org>
date Mon, 08 Feb 2010 16:51:25 -0600
parents 023b83f4e54b
children 308d34e9f07d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
1 ;;; gpm.el --- Support the mouse when emacs run on a Linux console.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
2
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
3 ;; Copyright (C) 1999 Free Software Foundation
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
4
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
5 ;; Author: William Perry <wmperry@gnu.org>
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
6 ;; Keywords: mouse, terminals
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
7
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
8 ;; This file is part of XEmacs.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
9
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
10 ;; XEmacs is free software; you can redistribute it and/or modify
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
13 ;; any later version.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
14
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
15 ;; XEmacs is distributed in the hope that it will be useful,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
18 ;; GNU General Public License for more details.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
19
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 502
diff changeset
21 ;; along with XEmacs; see the file COPYING. If not, write to the
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
24
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
25 (defvar gpm-enabled-devices (make-hash-table :test 'eq
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
26 :size 13
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
27 :weakness 'key)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
28 "A hash table of devices with GPM currently turned on.")
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
29
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
30 (defun gpm-mode (&optional arg device)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
31 "Toggle GPM mouse mode.
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
32 With prefix arg, turn GPM mouse mode on if and only if arg is positive."
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
33 (interactive (list current-prefix-arg (selected-device)))
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
34 (with-fboundp 'gpm-enable
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
35 (cond
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
36 ((null arg) ; Toggle
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
37 (if (gethash device gpm-enabled-devices)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
38 (progn
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
39 (gpm-enable device nil)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
40 (remhash device gpm-enabled-devices))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
41 (gpm-enable device t)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
42 (puthash device t gpm-enabled-devices)))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
43 ((> arg 0) ; Turn on
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
44 (gpm-enable device t)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
45 (puthash device t gpm-enabled-devices))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
46 ((gethash device gpm-enabled-devices) ; Turn off
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
47 (gpm-enable device nil)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
48 (remhash device gpm-enabled-devices)))))
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
49
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
50 (defun turn-on-gpm-mouse-tracking (&optional device)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
51 ;; Enable mouse tracking on linux console
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
52 (gpm-mode 5 device))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
53
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
54 (defun turn-off-gpm-mouse-tracking (&optional device)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
55 ;; Disable mouse tracking on linux console
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
56 (gpm-mode -5 device))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
57
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
58 (defun gpm-is-supported-p (device)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
59 "Returns non-nil if GPM is usable right now on DEVICE in this XEmacs session.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
60 This checks whether GPM support was compiled in, TTY support was
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
61 compiled in, XEmacs is running on Linux, the current console/device is
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
62 TTY, and its terminal type has been set to `linux'."
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
63 (and (not noninteractive) ; Don't want to do this in batch mode
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
64 (fboundp 'gpm-enable) ; Must have C-level GPM support
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
65 (eq system-type 'linux) ; Must be running linux
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
66 (eq (device-type device) 'tty) ; on a tty
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
67 (equal "linux" (declare-fboundp ; an a linux terminal type
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
68 (console-tty-terminal-type (device-console device))))))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
69
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
70 (defun gpm-create-device-hook (device)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
71 (if (gpm-is-supported-p device)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
72 (turn-on-gpm-mouse-tracking device)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
73
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
74 (defun gpm-delete-device-hook (device)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 442
diff changeset
75 (if (gpm-is-supported-p device)
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
76 (turn-off-gpm-mouse-tracking device)))
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
77
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 398
diff changeset
78 ;; Restore normal mouse behavior outside Emacs
398
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
79
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
80 (add-hook 'suspend-hook 'turn-off-gpm-mouse-tracking)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
81 (add-hook 'suspend-resume-hook 'turn-on-gpm-mouse-tracking)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
82 (add-hook 'create-device-hook 'gpm-create-device-hook)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
83 (add-hook 'delete-device-hook 'gpm-delete-device-hook)
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
84
74fd4e045ea6 Import from CVS: tag r21-2-29
cvs
parents:
diff changeset
85 (provide 'gpm)