Mercurial > hg > xemacs-beta
annotate lisp/gtk-mouse.el @ 5529:3d1f8f0e690f
Add `function-key-map-parent', for non-console-specific `function-key-map' bindings
src/ChangeLog addition:
2011-06-25 Aidan Kehoe <kehoea@parhasard.net>
* console.c:
* console.c (allocate_console):
* console.c (vars_of_console):
* console.c (complex_vars_of_console):
* lisp.h:
Add a new keymap variable, function-key-map-parent; use it as the
parent of each console-specific function-key-map. This is
appropriate for things like x-compose processing.
lisp/ChangeLog addition:
2011-06-25 Aidan Kehoe <kehoea@parhasard.net>
* gtk-init.el:
* gtk-init.el (make-device-late-gtk-entry-point):
* gtk-init.el (gtk-initialize-compose): Removed.
* keymap.el:
* keymap.el (function-key-map-parent):
* x-init.el (x-initialize-compose): Removed.
* x-init.el (make-device-late-x-entry-point):
Make the bindings for dead-acute and friends in
function-key-map-parent, rather than function-key-map; do this in
keymap.el rather than in window-system-specific code, since the
compose processing is generally useful and not X11-specific.
It's probably reasonable to rename x-compose.el to compose.el at
this point, but I haven't done that.
man/ChangeLog addition:
2011-06-25 Aidan Kehoe <kehoea@parhasard.net>
* lispref/os.texi (Translating Input):
Document the just-added function-key-map-parent.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sat, 25 Jun 2011 14:00:48 +0100 |
parents | 308d34e9f07d |
children |
rev | line source |
---|---|
462 | 1 ;;; gtk-mouse.el --- Mouse support for GTK window system. |
2 | |
3 ;; Copyright (C) 1985, 1992-4, 1997 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1995, 1996 Ben Wing. | |
5 ;; Copyright (C) 2000 William Perry | |
6 | |
7 ;; Maintainer: XEmacs Development Team | |
8 ;; Keywords: mouse, dumped | |
9 | |
10 ;; This file is part of XEmacs. | |
11 | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
12 ;; XEmacs is free software: you can redistribute it and/or modify it |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
13 ;; under the terms of the GNU General Public License as published by the |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
14 ;; Free Software Foundation, either version 3 of the License, or (at your |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
15 ;; option) any later version. |
462 | 16 |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
17 ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
18 ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
19 ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
20 ;; for more details. |
462 | 21 |
22 ;; You should have received a copy of the GNU General Public License | |
5402
308d34e9f07d
Changed bulk of GPLv2 or later files identified by script
Mats Lidell <matsl@xemacs.org>
parents:
462
diff
changeset
|
23 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. |
462 | 24 |
25 ;;; Synched up with: Not synched. | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; This file is dumped with XEmacs (when GTK support is compiled in). | |
30 | |
31 ;;; Code: | |
32 | |
33 (defvar gtk-pointers-initialized nil) | |
34 | |
35 (defun gtk-init-pointers () | |
36 (if gtk-pointers-initialized | |
37 nil | |
38 (set-glyph-image text-pointer-glyph | |
39 [gtk-resource :resource-type cursor :resource-id xterm] | |
40 'gtk) | |
41 (set-glyph-image nontext-pointer-glyph | |
42 [gtk-resource :resource-type cursor :resource-id xterm] | |
43 'gtk) | |
44 (set-glyph-image selection-pointer-glyph | |
45 [gtk-resource :resource-type cursor :resource-id top-left-arrow] | |
46 'gtk) | |
47 (set-glyph-image modeline-pointer-glyph | |
48 [gtk-resource :resource-type cursor :resource-id sb-v-double-arrow] | |
49 'gtk) | |
50 (set-glyph-image divider-pointer-glyph | |
51 [gtk-resource :resource-type cursor :resource-id sb-h-double-arrow] | |
52 'gtk) | |
53 (set-glyph-image busy-pointer-glyph | |
54 [gtk-resource :resource-type cursor :resource-id watch] | |
55 'gtk) | |
56 (set-glyph-image gc-pointer-glyph | |
57 [gtk-resource :resource-type cursor :resource-id watch] | |
58 'gtk) | |
59 | |
60 (when (featurep 'toolbar) | |
61 (set-glyph-image toolbar-pointer-glyph | |
62 [gtk-resource :resource-type cursor :resource-id top-left-arrow] | |
63 'gtk)) | |
64 | |
65 (when (featurep 'scrollbar) | |
66 (set-glyph-image scrollbar-pointer-glyph | |
67 [gtk-resource :resource-type cursor :resource-id top-left-arrow] | |
68 'gtk)) | |
69 | |
70 (setq gtk-pointers-initialized t))) |