Mercurial > hg > xemacs-beta
annotate lisp/gpm.el @ 5176:8b2f75cecb89
rename objects* (.c, .h and .el files) to fontcolor*
-------------------- ChangeLog entries follow: --------------------
etc/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* dbxrc.in:
Rename objects.c -> fontcolor.c.
lisp/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* dumped-lisp.el (preloaded-file-list):
* font.el (font-tty-find-closest-color):
* fontcolor.el:
* fontcolor.el (ws-object-property-1): Removed.
* fontcolor.el (fontcolor-property-1): New.
* fontcolor.el (font-name):
* fontcolor.el (font-ascent):
* fontcolor.el (font-descent):
* fontcolor.el (font-width):
* fontcolor.el (font-height):
* fontcolor.el (font-proportional-p):
* fontcolor.el (font-properties):
* fontcolor.el (font-truename):
* fontcolor.el (color-name):
* fontcolor.el (color-rgb-components):
* x-faces.el:
Rename objects.el -> fontcolor.el.
lwlib/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* lwlib-colors.h:
objects*.h -> fontcolor*.h.
man/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* internals/internals.texi (A Summary of the Various XEmacs Modules):
* internals/internals.texi (Modules for other Display-Related Lisp Objects):
objects*.[ch] -> fontcolor*.[ch].
nt/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* xemacs.dsp:
* xemacs.mak:
* xemacs.mak (OPT_OBJS):
objects*.[ch] -> fontcolor*.[ch].
src/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* EmacsFrame.c:
* Makefile.in.in (x_objs):
* Makefile.in.in (mswindows_objs):
* Makefile.in.in (tty_objs):
* Makefile.in.in (gtk_objs):
* Makefile.in.in (objs):
* console-tty.h:
* console-x-impl.h:
* console-x-impl.h (struct x_device):
* console-x.h:
* console-xlike-inc.h:
* depend:
* device-gtk.c:
* device-msw.c:
* device-x.c:
* device-x.c (x_init_device):
* device-x.c (x_finish_init_device):
* device.c:
* devslots.h (MARKED_SLOT):
* emacs.c (main_1):
* event-Xt.c:
* event-gtk.c:
* event-msw.c:
* faces.c:
* font-mgr.c:
* fontcolor-gtk-impl.h:
* fontcolor-gtk.c:
* fontcolor-gtk.c (syms_of_fontcolor_gtk):
* fontcolor-gtk.c (console_type_create_fontcolor_gtk):
* fontcolor-gtk.c (vars_of_fontcolor_gtk):
* fontcolor-gtk.h:
* fontcolor-impl.h:
* fontcolor-msw-impl.h:
* fontcolor-msw.c:
* fontcolor-msw.c (syms_of_fontcolor_mswindows):
* fontcolor-msw.c (console_type_create_fontcolor_mswindows):
* fontcolor-msw.c (reinit_vars_of_fontcolor_mswindows):
* fontcolor-msw.c (vars_of_fontcolor_mswindows):
* fontcolor-msw.h:
* fontcolor-msw.h (mswindows_color_to_string):
* fontcolor-tty-impl.h:
* fontcolor-tty.c:
* fontcolor-tty.c (syms_of_fontcolor_tty):
* fontcolor-tty.c (console_type_create_fontcolor_tty):
* fontcolor-tty.c (vars_of_fontcolor_tty):
* fontcolor-tty.h:
* fontcolor-x-impl.h:
* fontcolor-x.c:
* fontcolor-x.c (syms_of_fontcolor_x):
* fontcolor-x.c (console_type_create_fontcolor_x):
* fontcolor-x.c (vars_of_fontcolor_x):
* fontcolor-x.c (Xatoms_of_fontcolor_x):
* fontcolor-x.h:
* fontcolor.c:
* fontcolor.c (syms_of_fontcolor):
* fontcolor.c (specifier_type_create_fontcolor):
* fontcolor.c (reinit_specifier_type_create_fontcolor):
* fontcolor.c (reinit_vars_of_fontcolor):
* fontcolor.c (vars_of_fontcolor):
* fontcolor.h:
* fontcolor.h (set_face_boolean_attached_to):
* frame-gtk.c:
* frame-x.c:
* glyphs-eimage.c:
* glyphs-gtk.c:
* glyphs-msw.c:
* glyphs-widget.c:
* glyphs-x.c:
* glyphs.c:
* gtk-glue.c:
* gtk-glue.c (xemacs_type_register):
* gtk-xemacs.c:
* inline.c:
* intl-win32.c:
* lisp.h:
* lrecord.h:
* mule-charset.c:
* native-gtk-toolbar.c:
* redisplay-msw.c:
* redisplay-tty.c:
* redisplay.c:
* select-x.c:
* select.c:
* symsinit.h:
* toolbar-msw.c:
* toolbar-msw.c (TOOLBAR_ITEM_ID_BITS):
* toolbar-x.c:
* ui-gtk.c:
* window.c:
Rename objects*.[ch] -> fontcolor*.[ch]. Fix up all references to
the old files (e.g. in #include statements, Makefiles,
functions like syms_of_objects_x(), etc.).
tests/ChangeLog addition:
2010-02-22 Ben Wing <ben@xemacs.org>
* reproduce-crashes.el (8):
objects*.[ch] -> fontcolor*.[ch].
| author | Ben Wing <ben@xemacs.org> |
|---|---|
| date | Mon, 22 Feb 2010 06:49:30 -0600 |
| parents | 023b83f4e54b |
| children | 308d34e9f07d |
| rev | line source |
|---|---|
| 398 | 1 ;;; gpm.el --- Support the mouse when emacs run on a Linux console. |
| 2 | |
| 3 ;; Copyright (C) 1999 Free Software Foundation | |
| 4 | |
| 5 ;; Author: William Perry <wmperry@gnu.org> | |
| 6 ;; Keywords: mouse, terminals | |
| 7 | |
| 8 ;; This file is part of XEmacs. | |
| 9 | |
| 10 ;; XEmacs is free software; you can redistribute it and/or modify | |
| 11 ;; it under the terms of the GNU General Public License as published by | |
| 12 ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 ;; any later version. | |
| 14 | |
| 15 ;; XEmacs is distributed in the hope that it will be useful, | |
| 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 ;; GNU General Public License for more details. | |
| 19 | |
| 20 ;; You should have received a copy of the GNU General Public License | |
| 613 | 21 ;; along with XEmacs; see the file COPYING. If not, write to the |
| 398 | 22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
| 23 ;; Boston, MA 02111-1307, USA. | |
| 24 | |
| 25 (defvar gpm-enabled-devices (make-hash-table :test 'eq | |
| 26 :size 13 | |
| 27 :weakness 'key) | |
| 28 "A hash table of devices with GPM currently turned on.") | |
| 502 | 29 |
| 398 | 30 (defun gpm-mode (&optional arg device) |
| 31 "Toggle GPM mouse mode. | |
| 32 With prefix arg, turn GPM mouse mode on if and only if arg is positive." | |
| 33 (interactive (list current-prefix-arg (selected-device))) | |
| 502 | 34 (with-fboundp 'gpm-enable |
| 35 (cond | |
| 36 ((null arg) ; Toggle | |
| 37 (if (gethash device gpm-enabled-devices) | |
| 38 (progn | |
| 39 (gpm-enable device nil) | |
| 40 (remhash device gpm-enabled-devices)) | |
| 41 (gpm-enable device t) | |
| 42 (puthash device t gpm-enabled-devices))) | |
| 43 ((> arg 0) ; Turn on | |
| 398 | 44 (gpm-enable device t) |
| 502 | 45 (puthash device t gpm-enabled-devices)) |
| 46 ((gethash device gpm-enabled-devices) ; Turn off | |
| 47 (gpm-enable device nil) | |
| 48 (remhash device gpm-enabled-devices))))) | |
| 398 | 49 |
| 50 (defun turn-on-gpm-mouse-tracking (&optional device) | |
| 51 ;; Enable mouse tracking on linux console | |
| 52 (gpm-mode 5 device)) | |
| 53 | |
| 54 (defun turn-off-gpm-mouse-tracking (&optional device) | |
| 55 ;; Disable mouse tracking on linux console | |
| 56 (gpm-mode -5 device)) | |
| 57 | |
| 502 | 58 (defun gpm-is-supported-p (device) |
| 59 "Returns non-nil if GPM is usable right now on DEVICE in this XEmacs session. | |
| 60 This checks whether GPM support was compiled in, TTY support was | |
| 61 compiled in, XEmacs is running on Linux, the current console/device is | |
| 62 TTY, and its terminal type has been set to `linux'." | |
| 63 (and (not noninteractive) ; Don't want to do this in batch mode | |
| 64 (fboundp 'gpm-enable) ; Must have C-level GPM support | |
| 65 (eq system-type 'linux) ; Must be running linux | |
| 66 (eq (device-type device) 'tty) ; on a tty | |
| 67 (equal "linux" (declare-fboundp ; an a linux terminal type | |
| 68 (console-tty-terminal-type (device-console device)))))) | |
| 69 | |
| 398 | 70 (defun gpm-create-device-hook (device) |
| 502 | 71 (if (gpm-is-supported-p device) |
| 398 | 72 (turn-on-gpm-mouse-tracking device))) |
| 73 | |
| 74 (defun gpm-delete-device-hook (device) | |
| 502 | 75 (if (gpm-is-supported-p device) |
| 398 | 76 (turn-off-gpm-mouse-tracking device))) |
| 77 | |
| 442 | 78 ;; Restore normal mouse behavior outside Emacs |
| 398 | 79 |
| 80 (add-hook 'suspend-hook 'turn-off-gpm-mouse-tracking) | |
| 81 (add-hook 'suspend-resume-hook 'turn-on-gpm-mouse-tracking) | |
| 82 (add-hook 'create-device-hook 'gpm-create-device-hook) | |
| 83 (add-hook 'delete-device-hook 'gpm-delete-device-hook) | |
| 84 | |
| 85 (provide 'gpm) |