Mercurial > emacs
annotate lisp/term/x-win.el @ 95212:a6a4ada91449
* dispextern.h, xfaces.c (xstrcasecmp): Renamed from xstricmp.
* dosfns.c, fileio.c, font.c, fontset.c, image.c, macfns.c:
* macterm.c, process.c, w32.c, w32fns.c, w32proc.c, xfaces.c:
* xfns.c, xfont.c: Callers changed.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Thu, 22 May 2008 14:52:37 +0000 |
parents | 92723dccd995 |
children | b4e36ff621b3 |
rev | line source |
---|---|
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1 ;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*- |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
2 |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, |
79718 | 4 ;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc. |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
5 |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
6 ;; Author: FSF |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
7 ;; Keywords: terminals, i18n |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
8 |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
10 |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93911
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93911
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93911
diff
changeset
|
14 ;; (at your option) any later version. |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
15 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
19 ;; GNU General Public License for more details. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
20 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
94671
f3ab0c2464f5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
93911
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
54 | 23 |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
24 ;;; Commentary: |
54 | 25 |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
26 ;; X-win.el: this file defines functions to initialize the X window |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
27 ;; system and process X-specific command line parameters before |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
28 ;; creating the first X frame. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
29 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
30 ;; Note that contrary to previous Emacs versions, the act of loading |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
31 ;; this file should not have the side effect of initializing the |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
32 ;; window system or processing command line arguments (this file is |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
33 ;; now loaded in loadup.el). See the variables |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
34 ;; `handle-args-function-alist' and |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
35 ;; `window-system-initialization-alist' for more details. |
54 | 36 |
37 ;; startup.el will then examine startup files, and eventually call the hooks | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
38 ;; which create the first window(s). |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
39 |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
40 ;;; Code: |
54 | 41 |
42 ;; These are the standard X switches from the Xt Initialize.c file of | |
43 ;; Release 4. | |
44 | |
45 ;; Command line Resource Manager string | |
46 | |
47 ;; +rv *reverseVideo | |
48 ;; +synchronous *synchronous | |
49 ;; -background *background | |
50 ;; -bd *borderColor | |
51 ;; -bg *background | |
52 ;; -bordercolor *borderColor | |
53 ;; -borderwidth .borderWidth | |
54 ;; -bw .borderWidth | |
55 ;; -display .display | |
56 ;; -fg *foreground | |
57 ;; -fn *font | |
58 ;; -font *font | |
59 ;; -foreground *foreground | |
60 ;; -geometry .geometry | |
61 ;; -iconic .iconic | |
62 ;; -name .name | |
63 ;; -reverse *reverseVideo | |
64 ;; -rv *reverseVideo | |
65 ;; -selectionTimeout .selectionTimeout | |
66 ;; -synchronous *synchronous | |
67 ;; -xrm | |
68 | |
69 ;; An alist of X options and the function which handles them. See | |
70 ;; ../startup.el. | |
71 | |
83014
f5cadabb36dd
Support for opening X frames from a tty session.
Karoly Lorentey <lorentey@elte.hu>
parents:
83009
diff
changeset
|
72 (if (not (fboundp 'x-create-frame)) |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
73 (error "%s: Loading x-win.el but not compiled for X" (invocation-name))) |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49288
diff
changeset
|
74 |
779 | 75 (require 'frame) |
467 | 76 (require 'mouse) |
1972
b0cde2f5164d
* term/x-win.el: Require `scroll-bar', not `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1954
diff
changeset
|
77 (require 'scroll-bar) |
2718
c91b18333f58
* x-win.el: Since we require faces.el, there's no point in setting
Jim Blandy <jimb@redhat.com>
parents:
2586
diff
changeset
|
78 (require 'faces) |
c91b18333f58
* x-win.el: Since we require faces.el, there's no point in setting
Jim Blandy <jimb@redhat.com>
parents:
2586
diff
changeset
|
79 (require 'select) |
2808 | 80 (require 'menu-bar) |
49288
7f09b406bc3c
Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents:
49185
diff
changeset
|
81 (require 'fontset) |
53789
7efe8089eadf
* x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents:
53745
diff
changeset
|
82 (require 'x-dnd) |
273 | 83 |
3373
4177a984e5c0
(x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
84 (defvar x-invocation-args) |
65259
ba3854e2c98c
(x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
85 (defvar x-keysym-table) |
ba3854e2c98c
(x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
86 (defvar x-selection-timeout) |
ba3854e2c98c
(x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
87 (defvar x-session-id) |
ba3854e2c98c
(x-keysym-table, x-selection-timeout, x-session-id, x-session-previous-id):
Juanma Barranquero <lekktu@gmail.com>
parents:
64701
diff
changeset
|
88 (defvar x-session-previous-id) |
3373
4177a984e5c0
(x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
89 |
3081
63c51f1e885b
Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents:
3070
diff
changeset
|
90 (defvar x-command-line-resources nil) |
63c51f1e885b
Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents:
3070
diff
changeset
|
91 |
54 | 92 ;; Handler for switches of the form "-switch value" or "-switch". |
93 (defun x-handle-switch (switch) | |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
94 (let ((aelt (assoc switch command-line-x-option-alist))) |
54 | 95 (if aelt |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
96 (let ((param (nth 3 aelt)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
97 (value (nth 4 aelt))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
98 (if value |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
99 (setq default-frame-alist |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
100 (cons (cons param value) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
101 default-frame-alist)) |
779 | 102 (setq default-frame-alist |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
103 (cons (cons param |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
104 (car x-invocation-args)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
105 default-frame-alist) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
106 x-invocation-args (cdr x-invocation-args))))))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
107 |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
108 ;; Handler for switches of the form "-switch n" |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
109 (defun x-handle-numeric-switch (switch) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
110 (let ((aelt (assoc switch command-line-x-option-alist))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
111 (if aelt |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
112 (let ((param (nth 3 aelt))) |
779 | 113 (setq default-frame-alist |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
114 (cons (cons param |
62402
a7e02ef1e3d6
Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents:
62249
diff
changeset
|
115 (string-to-number (car x-invocation-args))) |
779 | 116 default-frame-alist) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
117 x-invocation-args |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
118 (cdr x-invocation-args)))))) |
54 | 119 |
42710
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
120 ;; Handle options that apply to initial frame only |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
121 (defun x-handle-initial-switch (switch) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
122 (let ((aelt (assoc switch command-line-x-option-alist))) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
123 (if aelt |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
124 (let ((param (nth 3 aelt)) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
125 (value (nth 4 aelt))) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
126 (if value |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
127 (setq initial-frame-alist |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
128 (cons (cons param value) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
129 initial-frame-alist)) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
130 (setq initial-frame-alist |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
131 (cons (cons param |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
132 (car x-invocation-args)) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
133 initial-frame-alist) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
134 x-invocation-args (cdr x-invocation-args))))))) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
135 |
78186
cc31545ae790
(x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
76359
diff
changeset
|
136 (defun x-handle-no-bitmap-icon (switch) |
cc31545ae790
(x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
76359
diff
changeset
|
137 (setq default-frame-alist (cons '(icon-type) default-frame-alist))) |
cc31545ae790
(x-handle-no-bitmap-icon): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
76359
diff
changeset
|
138 |
4306
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
139 ;; Make -iconic apply only to the initial frame! |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
140 (defun x-handle-iconic (switch) |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
141 (setq initial-frame-alist |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
142 (cons '(visibility . icon) initial-frame-alist))) |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
143 |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
144 ;; Handle the -xrm option. |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
145 (defun x-handle-xrm-switch (switch) |
36582
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
146 (unless (consp x-invocation-args) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
147 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
148 (setq x-command-line-resources |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
149 (if (null x-command-line-resources) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
150 (car x-invocation-args) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
151 (concat x-command-line-resources "\n" (car x-invocation-args)))) |
3081
63c51f1e885b
Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents:
3070
diff
changeset
|
152 (setq x-invocation-args (cdr x-invocation-args))) |
63c51f1e885b
Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents:
3070
diff
changeset
|
153 |
54 | 154 ;; Handle the geometry option |
155 (defun x-handle-geometry (switch) | |
42286
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
156 (let* ((geo (x-parse-geometry (car x-invocation-args))) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
157 (left (assq 'left geo)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
158 (top (assq 'top geo)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
159 (height (assq 'height geo)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
160 (width (assq 'width geo))) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
161 (if (or height width) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
162 (setq default-frame-alist |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
163 (append default-frame-alist |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
164 '((user-size . t)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
165 (if height (list height)) |
42932
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
166 (if width (list width))) |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
167 initial-frame-alist |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
168 (append initial-frame-alist |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
169 '((user-size . t)) |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
170 (if height (list height)) |
42286
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
171 (if width (list width))))) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
172 (if (or left top) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
173 (setq initial-frame-alist |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
174 (append initial-frame-alist |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
175 '((user-position . t)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
176 (if left (list left)) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
177 (if top (list top))))) |
ce0c926022b3
(x-handle-geometry): Put height and width on default-frame-alist,
Richard M. Stallman <rms@gnu.org>
parents:
39400
diff
changeset
|
178 (setq x-invocation-args (cdr x-invocation-args)))) |
54 | 179 |
15538
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
180 ;; Handle the -name option. Set the variable x-resource-name |
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
181 ;; to the option's operand; set the name of |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
182 ;; the initial frame, too. |
15538
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
183 (defun x-handle-name-switch (switch) |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
184 (or (consp x-invocation-args) |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
185 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
186 (setq x-resource-name (car x-invocation-args) |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
187 x-invocation-args (cdr x-invocation-args)) |
15538
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
188 (setq initial-frame-alist (cons (cons 'name x-resource-name) |
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
189 initial-frame-alist))) |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
190 |
91628
60f09344e8c9
(x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
191 ;; Handle the --parent-id option. |
60f09344e8c9
(x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
192 (defun x-handle-parent-id (switch) |
60f09344e8c9
(x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
193 (or (consp x-invocation-args) |
60f09344e8c9
(x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
194 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
91655
8cd1274a8ae3
(x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents:
91628
diff
changeset
|
195 (setq initial-frame-alist (cons |
8cd1274a8ae3
(x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents:
91628
diff
changeset
|
196 (cons 'parent-id |
8cd1274a8ae3
(x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents:
91628
diff
changeset
|
197 (string-to-number (car x-invocation-args))) |
8cd1274a8ae3
(x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents:
91628
diff
changeset
|
198 initial-frame-alist) |
8cd1274a8ae3
(x-handle-parent-id): Remove free variable `parent-id'.
Glenn Morris <rgm@gnu.org>
parents:
91628
diff
changeset
|
199 x-invocation-args (cdr x-invocation-args))) |
91628
60f09344e8c9
(x-handle-parent-id): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91327
diff
changeset
|
200 |
54 | 201 (defvar x-display-name nil |
71679
d59a1ce72785
* term/x-win.el (x-display-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
71133
diff
changeset
|
202 "The name of the X display on which Emacs was started. |
d59a1ce72785
* term/x-win.el (x-display-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
71133
diff
changeset
|
203 |
71690
66dc48c8d1c8
(x-display-name): Fix typo.
Romain Francoise <romain@orebokech.com>
parents:
71679
diff
changeset
|
204 For the X display name of individual frames, see the `display' |
71679
d59a1ce72785
* term/x-win.el (x-display-name): Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents:
71133
diff
changeset
|
205 frame parameter.") |
54 | 206 |
207 (defun x-handle-display (switch) | |
71729
9f431e2269e4
(x-handle-display): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents:
71690
diff
changeset
|
208 "Handle -display DISPLAY option." |
54 | 209 (setq x-display-name (car x-invocation-args) |
14977
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
210 x-invocation-args (cdr x-invocation-args)) |
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
211 ;; Make subshell programs see the same DISPLAY value Emacs really uses. |
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
212 ;; Note that this isn't completely correct, since Emacs can use |
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
213 ;; multiple displays. However, there is no way to tell an already |
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
214 ;; running subshell which display the user is currently typing on. |
2910a512c515
(x-handle-display): Set DISPLAY envvar too.
Richard M. Stallman <rms@gnu.org>
parents:
14170
diff
changeset
|
215 (setenv "DISPLAY" x-display-name)) |
54 | 216 |
321 | 217 (defun x-handle-args (args) |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
218 "Process the X-related command line options in ARGS. |
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
219 This is done before the user's startup file is loaded. They are copied to |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
220 `x-invocation-args', from which the X-related things are extracted, first |
321 | 221 the switch (e.g., \"-fg\") in the following code, and possible values |
7639 | 222 \(e.g., \"black\") in the option handler code (e.g., x-handle-switch). |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
223 This function returns ARGS minus the arguments that have been processed." |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
224 ;; We use ARGS to accumulate the args that we don't handle here, to return. |
273 | 225 (setq x-invocation-args args |
226 args nil) | |
16835
7584a510ad85
(x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents:
15815
diff
changeset
|
227 (while (and x-invocation-args |
7584a510ad85
(x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents:
15815
diff
changeset
|
228 (not (equal (car x-invocation-args) "--"))) |
273 | 229 (let* ((this-switch (car x-invocation-args)) |
10027
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
230 (orig-this-switch this-switch) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
231 completion argval aelt handler) |
273 | 232 (setq x-invocation-args (cdr x-invocation-args)) |
10027
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
233 ;; Check for long options with attached arguments |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
234 ;; and separate out the attached option argument into argval. |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
235 (if (string-match "^--[^=]*=" this-switch) |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
236 (setq argval (substring this-switch (match-end 0)) |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
237 this-switch (substring this-switch 0 (1- (match-end 0))))) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
238 ;; Complete names of long options. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
239 (if (string-match "^--" this-switch) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
240 (progn |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
241 (setq completion (try-completion this-switch command-line-x-option-alist)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
242 (if (eq completion t) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
243 ;; Exact match for long option. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
244 nil |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
245 (if (stringp completion) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
246 (let ((elt (assoc completion command-line-x-option-alist))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
247 ;; Check for abbreviated long option. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
248 (or elt |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
249 (error "Option `%s' is ambiguous" this-switch)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
250 (setq this-switch completion)))))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
251 (setq aelt (assoc this-switch command-line-x-option-alist)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
252 (if aelt (setq handler (nth 2 aelt))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
253 (if handler |
10027
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
254 (if argval |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
255 (let ((x-invocation-args |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
256 (cons argval x-invocation-args))) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
257 (funcall handler this-switch)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
258 (funcall handler this-switch)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
259 (setq args (cons orig-this-switch args))))) |
16835
7584a510ad85
(x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents:
15815
diff
changeset
|
260 (nconc (nreverse args) x-invocation-args)) |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
261 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
262 ;; Handle the --smid switch. This is used by the session manager |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
263 ;; to give us back our session id we had on the previous run. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
264 (defun x-handle-smid (switch) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
265 (or (consp x-invocation-args) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
266 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
267 (setq x-session-previous-id (car x-invocation-args) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
268 x-invocation-args (cdr x-invocation-args))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
269 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
270 (defvar emacs-save-session-functions nil |
51181
9de1323b5882
(iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50115
diff
changeset
|
271 "Special hook run when a save-session event occurs. |
9de1323b5882
(iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50115
diff
changeset
|
272 The functions do not get any argument. |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
273 Functions can return non-nil to inform the session manager that the |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
274 window system shutdown should be aborted. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
275 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
276 See also `emacs-session-save'.") |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
277 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
278 (defun emacs-session-filename (session-id) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
279 "Construct a filename to save the session in based on SESSION-ID. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
280 If the directory ~/.emacs.d exists, we make a filename in there, otherwise |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
281 a file in the home directory." |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
282 (let ((basename (concat "session." session-id)) |
81343
ce2f9d785f66
(emacs-session-filename): Use user-emacs-directory.
Chong Yidong <cyd@stupidchicken.com>
parents:
76359
diff
changeset
|
283 (emacs-dir user-emacs-directory)) |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
284 (expand-file-name (if (file-directory-p emacs-dir) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
285 (concat emacs-dir basename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
286 (concat "~/.emacs-" basename))))) |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49288
diff
changeset
|
287 |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
288 (defun emacs-session-save () |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
289 "This function is called when the window system is shutting down. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
290 If this function returns non-nil, the window system shutdown is cancelled. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
291 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
292 When a session manager tells Emacs that the window system is shutting |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
293 down, this function is called. It calls the functions in the hook |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
294 `emacs-save-session-functions'. Functions are called with the current |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
295 buffer set to a temporary buffer. Functions should use `insert' to insert |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
296 lisp code to save the session state. The buffer is saved |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
297 in a file in the home directory of the user running Emacs. The file |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
298 is evaluated when Emacs is restarted by the session manager. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
299 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
300 If any of the functions returns non-nil, no more functions are called |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
301 and this function returns non-nil. This will inform the session manager |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
302 that it should abort the window system shutdown." |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
303 (let ((filename (emacs-session-filename x-session-id)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
304 (buf (get-buffer-create (concat " *SES " x-session-id)))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
305 (when (file-exists-p filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
306 (delete-file filename)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
307 (with-current-buffer buf |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
308 (let ((cancel-shutdown (condition-case nil |
43869
606bb58da5c4
(emacs-session-save): Add comment that return t means cancel shutdown
Jan Djärv <jan.h.d@swipnet.se>
parents:
43866
diff
changeset
|
309 ;; A return of t means cancel the shutdown. |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49288
diff
changeset
|
310 (run-hook-with-args-until-success |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
311 'emacs-save-session-functions) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
312 (error t)))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
313 (unless cancel-shutdown |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
314 (write-file filename)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
315 (kill-buffer buf) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
316 cancel-shutdown)))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
317 |
43866
9ec4ee6f4529
(emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43820
diff
changeset
|
318 (defun emacs-session-restore (previous-session-id) |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
319 "Restore the Emacs session if started by a session manager. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
320 The file saved by `emacs-session-save' is evaluated and deleted if it |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
321 exists." |
43866
9ec4ee6f4529
(emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43820
diff
changeset
|
322 (let ((filename (emacs-session-filename previous-session-id))) |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
323 (when (file-exists-p filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
324 (load-file filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
325 (delete-file filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
326 (message "Restored session data")))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
327 |
49599
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49288
diff
changeset
|
328 |
5ade352e8d1c
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
49288
diff
changeset
|
329 |
54 | 330 |
331 ;; | |
332 ;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them. | |
333 ;; | |
334 | |
335 (defconst x-pointer-X-cursor 0) | |
336 (defconst x-pointer-arrow 2) | |
337 (defconst x-pointer-based-arrow-down 4) | |
338 (defconst x-pointer-based-arrow-up 6) | |
339 (defconst x-pointer-boat 8) | |
340 (defconst x-pointer-bogosity 10) | |
341 (defconst x-pointer-bottom-left-corner 12) | |
342 (defconst x-pointer-bottom-right-corner 14) | |
343 (defconst x-pointer-bottom-side 16) | |
344 (defconst x-pointer-bottom-tee 18) | |
345 (defconst x-pointer-box-spiral 20) | |
346 (defconst x-pointer-center-ptr 22) | |
347 (defconst x-pointer-circle 24) | |
348 (defconst x-pointer-clock 26) | |
349 (defconst x-pointer-coffee-mug 28) | |
350 (defconst x-pointer-cross 30) | |
351 (defconst x-pointer-cross-reverse 32) | |
352 (defconst x-pointer-crosshair 34) | |
353 (defconst x-pointer-diamond-cross 36) | |
354 (defconst x-pointer-dot 38) | |
355 (defconst x-pointer-dotbox 40) | |
356 (defconst x-pointer-double-arrow 42) | |
357 (defconst x-pointer-draft-large 44) | |
358 (defconst x-pointer-draft-small 46) | |
359 (defconst x-pointer-draped-box 48) | |
360 (defconst x-pointer-exchange 50) | |
361 (defconst x-pointer-fleur 52) | |
362 (defconst x-pointer-gobbler 54) | |
363 (defconst x-pointer-gumby 56) | |
364 (defconst x-pointer-hand1 58) | |
365 (defconst x-pointer-hand2 60) | |
366 (defconst x-pointer-heart 62) | |
367 (defconst x-pointer-icon 64) | |
368 (defconst x-pointer-iron-cross 66) | |
369 (defconst x-pointer-left-ptr 68) | |
370 (defconst x-pointer-left-side 70) | |
371 (defconst x-pointer-left-tee 72) | |
372 (defconst x-pointer-leftbutton 74) | |
373 (defconst x-pointer-ll-angle 76) | |
374 (defconst x-pointer-lr-angle 78) | |
375 (defconst x-pointer-man 80) | |
376 (defconst x-pointer-middlebutton 82) | |
377 (defconst x-pointer-mouse 84) | |
378 (defconst x-pointer-pencil 86) | |
379 (defconst x-pointer-pirate 88) | |
380 (defconst x-pointer-plus 90) | |
381 (defconst x-pointer-question-arrow 92) | |
382 (defconst x-pointer-right-ptr 94) | |
383 (defconst x-pointer-right-side 96) | |
384 (defconst x-pointer-right-tee 98) | |
385 (defconst x-pointer-rightbutton 100) | |
386 (defconst x-pointer-rtl-logo 102) | |
387 (defconst x-pointer-sailboat 104) | |
388 (defconst x-pointer-sb-down-arrow 106) | |
389 (defconst x-pointer-sb-h-double-arrow 108) | |
390 (defconst x-pointer-sb-left-arrow 110) | |
391 (defconst x-pointer-sb-right-arrow 112) | |
392 (defconst x-pointer-sb-up-arrow 114) | |
393 (defconst x-pointer-sb-v-double-arrow 116) | |
394 (defconst x-pointer-shuttle 118) | |
395 (defconst x-pointer-sizing 120) | |
396 (defconst x-pointer-spider 122) | |
397 (defconst x-pointer-spraycan 124) | |
398 (defconst x-pointer-star 126) | |
399 (defconst x-pointer-target 128) | |
400 (defconst x-pointer-tcross 130) | |
401 (defconst x-pointer-top-left-arrow 132) | |
402 (defconst x-pointer-top-left-corner 134) | |
403 (defconst x-pointer-top-right-corner 136) | |
404 (defconst x-pointer-top-side 138) | |
405 (defconst x-pointer-top-tee 140) | |
406 (defconst x-pointer-trek 142) | |
407 (defconst x-pointer-ul-angle 144) | |
408 (defconst x-pointer-umbrella 146) | |
409 (defconst x-pointer-ur-angle 148) | |
410 (defconst x-pointer-watch 150) | |
411 (defconst x-pointer-xterm 152) | |
83813
f5b3f6bef1a1
(x-gtk-stock-map): Add etc/images to keys.
Jan Djärv <jan.h.d@swipnet.se>
parents:
83717
diff
changeset
|
412 (defconst x-pointer-invisible 255) |
54 | 413 |
414 ;; | |
415 ;; Available colors | |
416 ;; | |
94851
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
417 ;; The ordering of the colors is chosen for the user's convenience in |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
418 ;; `list-colors-display', which displays the reverse of this list. |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
419 ;; Roughly speaking, `list-colors-display' orders by (i) named shades |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
420 ;; of grey with hue 0.0, sorted by value (ii) named colors with |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
421 ;; saturation 1.0, sorted by hue, (iii) named non-white colors with |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
422 ;; saturation less than 1.0, sorted by hue, (iv) other named shades of |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
423 ;; white, (v) numbered colors sorted by hue, and (vi) numbered shades |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
424 ;; of grey. |
54 | 425 |
94851
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
426 (defvar x-colors |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
427 '("gray100" "gray99" "gray98" "gray97" "gray96" "gray95" "gray94" "gray93" "gray92" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
428 "gray91" "gray90" "gray89" "gray88" "gray87" "gray86" "gray85" "gray84" "gray83" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
429 "gray82" "gray81" "gray80" "gray79" "gray78" "gray77" "gray76" "gray75" "gray74" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
430 "gray73" "gray72" "gray71" "gray70" "gray69" "gray68" "gray67" "gray66" "gray65" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
431 "gray64" "gray63" "gray62" "gray61" "gray60" "gray59" "gray58" "gray57" "gray56" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
432 "gray55" "gray54" "gray53" "gray52" "gray51" "gray50" "gray49" "gray48" "gray47" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
433 "gray46" "gray45" "gray44" "gray43" "gray42" "gray41" "gray40" "gray39" "gray38" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
434 "gray37" "gray36" "gray35" "gray34" "gray33" "gray32" "gray31" "gray30" "gray29" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
435 "gray28" "gray27" "gray26" "gray25" "gray24" "gray23" "gray22" "gray21" "gray20" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
436 "gray19" "gray18" "gray17" "gray16" "gray15" "gray14" "gray13" "gray12" "gray11" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
437 "gray10" "gray9" "gray8" "gray7" "gray6" "gray5" "gray4" "gray3" "gray2" "gray1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
438 "gray0" "LightPink1" "LightPink2" "LightPink3" "LightPink4" "pink1" "pink2" "pink3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
439 "pink4" "PaleVioletRed1" "PaleVioletRed2" "PaleVioletRed3" "PaleVioletRed4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
440 "LavenderBlush1" "LavenderBlush2" "LavenderBlush3" "LavenderBlush4" "VioletRed1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
441 "VioletRed2" "VioletRed3" "VioletRed4" "HotPink1" "HotPink2" "HotPink3" "HotPink4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
442 "DeepPink1" "DeepPink2" "DeepPink3" "DeepPink4" "maroon1" "maroon2" "maroon3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
443 "maroon4" "orchid1" "orchid2" "orchid3" "orchid4" "plum1" "plum2" "plum3" "plum4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
444 "thistle1" "thistle2" "thistle3" "thistle4" "MediumOrchid1" "MediumOrchid2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
445 "MediumOrchid3" "MediumOrchid4" "DarkOrchid1" "DarkOrchid2" "DarkOrchid3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
446 "DarkOrchid4" "purple1" "purple2" "purple3" "purple4" "MediumPurple1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
447 "MediumPurple2" "MediumPurple3" "MediumPurple4" "SlateBlue1" "SlateBlue2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
448 "SlateBlue3" "SlateBlue4" "RoyalBlue1" "RoyalBlue2" "RoyalBlue3" "RoyalBlue4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
449 "LightSteelBlue1" "LightSteelBlue2" "LightSteelBlue3" "LightSteelBlue4" "SlateGray1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
450 "SlateGray2" "SlateGray3" "SlateGray4" "DodgerBlue1" "DodgerBlue2" "DodgerBlue3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
451 "DodgerBlue4" "SteelBlue1" "SteelBlue2" "SteelBlue3" "SteelBlue4" "SkyBlue1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
452 "SkyBlue2" "SkyBlue3" "SkyBlue4" "LightSkyBlue1" "LightSkyBlue2" "LightSkyBlue3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
453 "LightSkyBlue4" "LightBlue1" "LightBlue2" "LightBlue3" "LightBlue4" "CadetBlue1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
454 "CadetBlue2" "CadetBlue3" "CadetBlue4" "azure1" "azure2" "azure3" "azure4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
455 "LightCyan1" "LightCyan2" "LightCyan3" "LightCyan4" "PaleTurquoise1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
456 "PaleTurquoise2" "PaleTurquoise3" "PaleTurquoise4" "DarkSlateGray1" "DarkSlateGray2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
457 "DarkSlateGray3" "DarkSlateGray4" "aquamarine1" "aquamarine2" "aquamarine3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
458 "aquamarine4" "SeaGreen1" "SeaGreen2" "SeaGreen3" "SeaGreen4" "honeydew1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
459 "honeydew2" "honeydew3" "honeydew4" "DarkSeaGreen1" "DarkSeaGreen2" "DarkSeaGreen3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
460 "DarkSeaGreen4" "PaleGreen1" "PaleGreen2" "PaleGreen3" "PaleGreen4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
461 "DarkOliveGreen1" "DarkOliveGreen2" "DarkOliveGreen3" "DarkOliveGreen4" "OliveDrab1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
462 "OliveDrab2" "OliveDrab3" "OliveDrab4" "ivory1" "ivory2" "ivory3" "ivory4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
463 "LightYellow1" "LightYellow2" "LightYellow3" "LightYellow4" "khaki1" "khaki2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
464 "khaki3" "khaki4" "LemonChiffon1" "LemonChiffon2" "LemonChiffon3" "LemonChiffon4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
465 "LightGoldenrod1" "LightGoldenrod2" "LightGoldenrod3" "LightGoldenrod4" "cornsilk1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
466 "cornsilk2" "cornsilk3" "cornsilk4" "goldenrod1" "goldenrod2" "goldenrod3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
467 "goldenrod4" "DarkGoldenrod1" "DarkGoldenrod2" "DarkGoldenrod3" "DarkGoldenrod4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
468 "wheat1" "wheat2" "wheat3" "wheat4" "NavajoWhite1" "NavajoWhite2" "NavajoWhite3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
469 "NavajoWhite4" "burlywood1" "burlywood2" "burlywood3" "burlywood4" "AntiqueWhite1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
470 "AntiqueWhite2" "AntiqueWhite3" "AntiqueWhite4" "bisque1" "bisque2" "bisque3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
471 "bisque4" "tan1" "tan2" "tan3" "tan4" "PeachPuff1" "PeachPuff2" "PeachPuff3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
472 "PeachPuff4" "seashell1" "seashell2" "seashell3" "seashell4" "chocolate1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
473 "chocolate2" "chocolate3" "chocolate4" "sienna1" "sienna2" "sienna3" "sienna4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
474 "LightSalmon1" "LightSalmon2" "LightSalmon3" "LightSalmon4" "salmon1" "salmon2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
475 "salmon3" "salmon4" "coral1" "coral2" "coral3" "coral4" "tomato1" "tomato2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
476 "tomato3" "tomato4" "MistyRose1" "MistyRose2" "MistyRose3" "MistyRose4" "snow1" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
477 "snow2" "snow3" "snow4" "RosyBrown1" "RosyBrown2" "RosyBrown3" "RosyBrown4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
478 "IndianRed1" "IndianRed2" "IndianRed3" "IndianRed4" "firebrick1" "firebrick2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
479 "firebrick3" "firebrick4" "brown1" "brown2" "brown3" "brown4" "magenta1" "magenta2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
480 "magenta3" "magenta4" "blue1" "blue2" "blue3" "blue4" "DeepSkyBlue1" "DeepSkyBlue2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
481 "DeepSkyBlue3" "DeepSkyBlue4" "turquoise1" "turquoise2" "turquoise3" "turquoise4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
482 "cyan1" "cyan2" "cyan3" "cyan4" "SpringGreen1" "SpringGreen2" "SpringGreen3" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
483 "SpringGreen4" "green1" "green2" "green3" "green4" "chartreuse1" "chartreuse2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
484 "chartreuse3" "chartreuse4" "yellow1" "yellow2" "yellow3" "yellow4" "gold1" "gold2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
485 "gold3" "gold4" "orange1" "orange2" "orange3" "orange4" "DarkOrange1" "DarkOrange2" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
486 "DarkOrange3" "DarkOrange4" "OrangeRed1" "OrangeRed2" "OrangeRed3" "OrangeRed4" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
487 "red1" "red2" "red3" "red4" "lavender blush" "ghost white" "lavender" "alice blue" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
488 "azure" "light cyan" "mint cream" "honeydew" "ivory" "light goldenrod yellow" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
489 "light yellow" "beige" "floral white" "old lace" "blanched almond" "moccasin" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
490 "papaya whip" "bisque" "antique white" "linen" "peach puff" "seashell" "misty rose" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
491 "snow" "light pink" "pink" "hot pink" "deep pink" "maroon" "pale violet red" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
492 "violet red" "medium violet red" "violet" "plum" "thistle" "orchid" "medium orchid" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
493 "dark orchid" "purple" "blue violet" "medium purple" "light slate blue" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
494 "medium slate blue" "slate blue" "dark slate blue" "midnight blue" "navy" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
495 "dark blue" "light steel blue" "cornflower blue" "dodger blue" "royal blue" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
496 "light slate gray" "slate gray" "dark slate gray" "steel blue" "cadet blue" |
94852 | 497 "light sky blue" "sky blue" "light blue" "powder blue" "pale turquoise" "turquoise" |
94851
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
498 "medium turquoise" "dark cyan" "aquamarine" "medium aquamarine" "light sea green" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
499 "medium sea green" "sea green" "dark sea green" "pale green" "lime green" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
500 "forest green" "light green" "green yellow" "yellow green" "olive drab" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
501 "dark olive green" "lemon chiffon" "khaki" "dark khaki" "cornsilk" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
502 "pale goldenrod" "light goldenrod" "goldenrod" "dark goldenrod" "wheat" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
503 "navajo white" "tan" "burlywood" "sandy brown" "peru" "chocolate" "saddle brown" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
504 "sienna" "rosy brown" "dark salmon" "coral" "tomato" "light salmon" "salmon" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
505 "light coral" "indian red" "firebrick" "brown" "dark red" "magenta" |
94852 | 506 "dark magenta" "dark violet" "medium blue" "blue" "deep sky blue" |
94851
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
507 "cyan" "medium spring green" "spring green" "green" "lawn green" "chartreuse" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
508 "yellow" "gold" "orange" "dark orange" "orange red" "red" "white" "white smoke" |
a9a8e5664a90
(x-colors): Re-order colors.
Chong Yidong <cyd@stupidchicken.com>
parents:
94671
diff
changeset
|
509 "gainsboro" "light grey" "gray" "dark grey" "dim gray" "black" ) |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
510 "The list of X colors from the `rgb.txt' file. |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
511 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") |
54 | 512 |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
23903
diff
changeset
|
513 (defun xw-defined-colors (&optional frame) |
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
23903
diff
changeset
|
514 "Internal function called by `defined-colors', which see." |
11466
8fb524439d09
(x-defined-colors): Take frame as optional arg.
Richard M. Stallman <rms@gnu.org>
parents:
11319
diff
changeset
|
515 (or frame (setq frame (selected-frame))) |
54 | 516 (let ((all-colors x-colors) |
517 (this-color nil) | |
518 (defined-colors nil)) | |
519 (while all-colors | |
520 (setq this-color (car all-colors) | |
521 all-colors (cdr all-colors)) | |
27101
a5791b2ee668
(xw-defined-colors): Call color-supported-p,
Eli Zaretskii <eliz@gnu.org>
parents:
26736
diff
changeset
|
522 (and (color-supported-p this-color frame t) |
54 | 523 (setq defined-colors (cons this-color defined-colors)))) |
524 defined-colors)) | |
396 | 525 |
526 ;;;; Function keys | |
527 | |
85104
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
528 (defvar x-alternatives-map |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
529 (let ((map (make-sparse-keymap))) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
530 ;; Map certain keypad keys into ASCII characters that people usually expect. |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
531 (define-key map [backspace] [127]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
532 (define-key map [delete] [127]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
533 (define-key map [tab] [?\t]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
534 (define-key map [linefeed] [?\n]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
535 (define-key map [clear] [?\C-l]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
536 (define-key map [return] [?\C-m]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
537 (define-key map [escape] [?\e]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
538 (define-key map [M-backspace] [?\M-\d]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
539 (define-key map [M-delete] [?\M-\d]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
540 (define-key map [M-tab] [?\M-\t]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
541 (define-key map [M-linefeed] [?\M-\n]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
542 (define-key map [M-clear] [?\M-\C-l]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
543 (define-key map [M-return] [?\M-\C-m]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
544 (define-key map [M-escape] [?\M-\e]) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
545 (define-key map [iso-lefttab] [backtab]) |
85111
ae1159126943
(x-alternatives-map): Remove spurious parenthesis.
Juanma Barranquero <lekktu@gmail.com>
parents:
85104
diff
changeset
|
546 (define-key map [S-iso-lefttab] [backtab]) |
85104
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
547 map) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
548 "Keymap of possible alternative meanings for some keys.") |
1546 | 549 |
83316
102194c6d773
Update Lisp code for a terminal-local `function-key-map'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83310
diff
changeset
|
550 (defun x-setup-function-keys (frame) |
102194c6d773
Update Lisp code for a terminal-local `function-key-map'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83310
diff
changeset
|
551 "Set up `function-key-map' on FRAME for the X window system." |
83503
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
552 ;; Don't do this twice on the same display, or it would break |
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
553 ;; normal-erase-is-backspace-mode. |
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
554 (unless (terminal-parameter frame 'x-setup-function-keys) |
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
555 ;; Map certain keypad keys into ASCII characters that people usually expect. |
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
556 (with-selected-frame frame |
85104
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
557 (let ((map (copy-keymap x-alternatives-map))) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
558 (set-keymap-parent map (keymap-parent local-function-key-map)) |
9befff1bc946
(x-alternatives-map): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
84984
diff
changeset
|
559 (set-keymap-parent local-function-key-map map))) |
83503
ad1fbeffe3cb
Fix delete key after C-x 5 2 on X. (Catched by Dan Nicolaescu.)
Karoly Lorentey <lorentey@elte.hu>
parents:
83468
diff
changeset
|
560 (set-terminal-parameter frame 'x-setup-function-keys t))) |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
561 |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
562 ;; These tell read-char how to convert |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
563 ;; these special chars to ASCII. |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
564 (put 'backspace 'ascii-character 127) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
565 (put 'delete 'ascii-character 127) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
566 (put 'tab 'ascii-character ?\t) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
567 (put 'linefeed 'ascii-character ?\n) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
568 (put 'clear 'ascii-character 12) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
569 (put 'return 'ascii-character 13) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
570 (put 'escape 'ascii-character ?\e) |
5515
920b55d2057b
(vendor-key-syms): Set this variable.
Richard M. Stallman <rms@gnu.org>
parents:
4314
diff
changeset
|
571 |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
572 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
573 ;;;; Keysyms |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
574 |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
575 (defun vendor-specific-keysyms (vendor) |
50075
cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
49599
diff
changeset
|
576 "Return the appropriate value of `system-key-alist' for VENDOR. |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
577 VENDOR is a string containing the name of the X Server's vendor, |
50075
cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
49599
diff
changeset
|
578 as returned by `x-server-vendor'." |
87595
4c6c79916238
* configure.in: Remove references to unsupported systems.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87385
diff
changeset
|
579 (cond ((or (string-equal vendor "Hewlett-Packard Incorporated") |
11902
fab32f80adf5
(vendor-specific-keysyms): Add second spelling for HP.
Karl Heuer <kwzh@gnu.org>
parents:
11821
diff
changeset
|
580 (string-equal vendor "Hewlett-Packard Company")) |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
581 '(( 168 . mute-acute) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
582 ( 169 . mute-grave) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
583 ( 170 . mute-asciicircum) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
584 ( 171 . mute-diaeresis) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
585 ( 172 . mute-asciitilde) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
586 ( 175 . lira) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
587 ( 190 . guilder) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
588 ( 252 . block) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
589 ( 256 . longminus) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
590 (65388 . reset) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
591 (65389 . system) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
592 (65390 . user) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
593 (65391 . clearline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
594 (65392 . insertline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
595 (65393 . deleteline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
596 (65394 . insertchar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
597 (65395 . deletechar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
598 (65396 . backtab) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
599 (65397 . kp-backtab))) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
600 ;; Fixme: What about non-X11/NeWS sun server? |
12057
562d3062b82e
(vendor-specific-keysyms): Recognize "X Consortium".
Karl Heuer <kwzh@gnu.org>
parents:
11902
diff
changeset
|
601 ((or (string-equal vendor "X11/NeWS - Sun Microsystems Inc.") |
562d3062b82e
(vendor-specific-keysyms): Recognize "X Consortium".
Karl Heuer <kwzh@gnu.org>
parents:
11902
diff
changeset
|
602 (string-equal vendor "X Consortium")) |
12556 | 603 '((392976 . f36) |
604 (392977 . f37) | |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
605 (393056 . req) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
606 ;; These are for Sun under X11R6 |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
607 (393072 . props) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
608 (393073 . front) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
609 (393074 . copy) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
610 (393075 . open) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
611 (393076 . paste) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
612 (393077 . cut))) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
613 (t |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
614 ;; This is used by DEC's X server. |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
615 '((65280 . remove))))) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
616 |
89246
27eed9fab7f5
Fix typo in loop setting x-keysym-table.
Dave Love <fx@gnu.org>
parents:
89240
diff
changeset
|
617 ;; Latin-1 |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
618 (let ((i 160)) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
619 (while (< i 256) |
89240
51d2baa0181d
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
42932
diff
changeset
|
620 (puthash i i x-keysym-table) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
621 (setq i (1+ i)))) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
622 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
623 ;; Table from Kuhn's proposed additions to the `KEYSYM Encoding' |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
624 ;; appendix to the X protocol definition. |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
625 (dolist |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
626 (pair |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
627 '( |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
628 ;; Latin-2 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
629 (#x1a1 . ?,B!(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
630 (#x1a2 . ?,B"(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
631 (#x1a3 . ?,B#(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
632 (#x1a5 . ?,B%(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
633 (#x1a6 . ?,B&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
634 (#x1a9 . ?,B)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
635 (#x1aa . ?,B*(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
636 (#x1ab . ?,B+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
637 (#x1ac . ?,B,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
638 (#x1ae . ?,B.(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
639 (#x1af . ?,B/(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
640 (#x1b1 . ?,B1(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
641 (#x1b2 . ?,B2(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
642 (#x1b3 . ?,B3(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
643 (#x1b5 . ?,B5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
644 (#x1b6 . ?,B6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
645 (#x1b7 . ?,B7(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
646 (#x1b9 . ?,B9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
647 (#x1ba . ?,B:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
648 (#x1bb . ?,B;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
649 (#x1bc . ?,B<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
650 (#x1bd . ?,B=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
651 (#x1be . ?,B>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
652 (#x1bf . ?,B?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
653 (#x1c0 . ?,B@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
654 (#x1c3 . ?,BC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
655 (#x1c5 . ?,BE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
656 (#x1c6 . ?,BF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
657 (#x1c8 . ?,BH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
658 (#x1ca . ?,BJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
659 (#x1cc . ?,BL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
660 (#x1cf . ?,BO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
661 (#x1d0 . ?,BP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
662 (#x1d1 . ?,BQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
663 (#x1d2 . ?,BR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
664 (#x1d5 . ?,BU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
665 (#x1d8 . ?,BX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
666 (#x1d9 . ?,BY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
667 (#x1db . ?,B[(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
668 (#x1de . ?,B^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
669 (#x1e0 . ?,B`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
670 (#x1e3 . ?,Bc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
671 (#x1e5 . ?,Be(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
672 (#x1e6 . ?,Bf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
673 (#x1e8 . ?,Bh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
674 (#x1ea . ?,Bj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
675 (#x1ec . ?,Bl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
676 (#x1ef . ?,Bo(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
677 (#x1f0 . ?,Bp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
678 (#x1f1 . ?,Bq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
679 (#x1f2 . ?,Br(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
680 (#x1f5 . ?,Bu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
681 (#x1f8 . ?,Bx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
682 (#x1f9 . ?,By(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
683 (#x1fb . ?,B{(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
684 (#x1fe . ?,B~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
685 (#x1ff . ?,B(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
686 ;; Latin-3 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
687 (#x2a1 . ?,C!(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
688 (#x2a6 . ?,C&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
689 (#x2a9 . ?,C)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
690 (#x2ab . ?,C+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
691 (#x2ac . ?,C,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
692 (#x2b1 . ?,C1(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
693 (#x2b6 . ?,C6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
694 (#x2b9 . ?,C9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
695 (#x2bb . ?,C;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
696 (#x2bc . ?,C<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
697 (#x2c5 . ?,CE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
698 (#x2c6 . ?,CF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
699 (#x2d5 . ?,CU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
700 (#x2d8 . ?,CX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
701 (#x2dd . ?,C](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
702 (#x2de . ?,C^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
703 (#x2e5 . ?,Ce(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
704 (#x2e6 . ?,Cf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
705 (#x2f5 . ?,Cu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
706 (#x2f8 . ?,Cx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
707 (#x2fd . ?,C}(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
708 (#x2fe . ?,C~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
709 ;; Latin-4 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
710 (#x3a2 . ?,D"(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
711 (#x3a3 . ?,D#(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
712 (#x3a5 . ?,D%(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
713 (#x3a6 . ?,D&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
714 (#x3aa . ?,D*(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
715 (#x3ab . ?,D+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
716 (#x3ac . ?,D,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
717 (#x3b3 . ?,D3(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
718 (#x3b5 . ?,D5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
719 (#x3b6 . ?,D6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
720 (#x3ba . ?,D:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
721 (#x3bb . ?,D;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
722 (#x3bc . ?,D<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
723 (#x3bd . ?,D=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
724 (#x3bf . ?,D?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
725 (#x3c0 . ?,D@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
726 (#x3c7 . ?,DG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
727 (#x3cc . ?,DL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
728 (#x3cf . ?,DO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
729 (#x3d1 . ?,DQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
730 (#x3d2 . ?,DR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
731 (#x3d3 . ?,DS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
732 (#x3d9 . ?,DY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
733 (#x3dd . ?,D](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
734 (#x3de . ?,D^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
735 (#x3e0 . ?,D`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
736 (#x3e7 . ?,Dg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
737 (#x3ec . ?,Dl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
738 (#x3ef . ?,Do(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
739 (#x3f1 . ?,Dq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
740 (#x3f2 . ?,Dr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
741 (#x3f3 . ?,Ds(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
742 (#x3f9 . ?,Dy(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
743 (#x3fd . ?,D}(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
744 (#x3fe . ?,D~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
745 ;; Kana: Fixme: needs conversion to Japanese charset -- seems |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
746 ;; to require jisx0213, for which the Unicode translation |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
747 ;; isn't clear. |
89909 | 748 (#x47e . ?(J~(B) |
749 (#x4a1 . ?$A!#(B) | |
750 (#x4a2 . ?\$A!8(B) | |
751 (#x4a3 . ?\$A!9(B) | |
752 (#x4a4 . ?$A!"(B) | |
753 (#x4a5 . ?$A!$(B) | |
754 (#x4a6 . ?$A%r(B) | |
755 (#x4a7 . ?$A%!(B) | |
756 (#x4a8 . ?$A%#(B) | |
757 (#x4a9 . ?$A%%(B) | |
758 (#x4aa . ?$A%'(B) | |
759 (#x4ab . ?$A%)(B) | |
760 (#x4ac . ?$A%c(B) | |
761 (#x4ad . ?$A%e(B) | |
762 (#x4ae . ?$A%g(B) | |
763 (#x4af . ?$A%C(B) | |
764 (#x4b0 . ?$B!<(B) | |
765 (#x4b1 . ?$A%"(B) | |
766 (#x4b2 . ?$A%$(B) | |
767 (#x4b3 . ?$A%&(B) | |
768 (#x4b4 . ?$A%((B) | |
769 (#x4b5 . ?$A%*(B) | |
770 (#x4b6 . ?$A%+(B) | |
771 (#x4b7 . ?$A%-(B) | |
772 (#x4b8 . ?$A%/(B) | |
773 (#x4b9 . ?$A%1(B) | |
774 (#x4ba . ?$A%3(B) | |
775 (#x4bb . ?$A%5(B) | |
776 (#x4bc . ?$A%7(B) | |
777 (#x4bd . ?$A%9(B) | |
778 (#x4be . ?$A%;(B) | |
779 (#x4bf . ?$A%=(B) | |
780 (#x4c0 . ?$A%?(B) | |
781 (#x4c1 . ?$A%A(B) | |
782 (#x4c2 . ?$A%D(B) | |
783 (#x4c3 . ?$A%F(B) | |
784 (#x4c4 . ?$A%H(B) | |
785 (#x4c5 . ?$A%J(B) | |
786 (#x4c6 . ?$A%K(B) | |
787 (#x4c7 . ?$A%L(B) | |
788 (#x4c8 . ?$A%M(B) | |
789 (#x4c9 . ?$A%N(B) | |
790 (#x4ca . ?$A%O(B) | |
791 (#x4cb . ?$A%R(B) | |
792 (#x4cc . ?$A%U(B) | |
793 (#x4cd . ?$A%X(B) | |
794 (#x4ce . ?$A%[(B) | |
795 (#x4cf . ?$A%^(B) | |
796 (#x4d0 . ?$A%_(B) | |
797 (#x4d1 . ?$A%`(B) | |
798 (#x4d2 . ?$A%a(B) | |
799 (#x4d3 . ?$A%b(B) | |
800 (#x4d4 . ?$A%d(B) | |
801 (#x4d5 . ?$A%f(B) | |
802 (#x4d6 . ?$A%h(B) | |
803 (#x4d7 . ?$A%i(B) | |
804 (#x4d8 . ?$A%j(B) | |
805 (#x4d9 . ?$A%k(B) | |
806 (#x4da . ?$A%l(B) | |
807 (#x4db . ?$A%m(B) | |
808 (#x4dc . ?$A%o(B) | |
809 (#x4dd . ?$A%s(B) | |
810 (#x4de . ?$B!+(B) | |
811 (#x4df . ?$B!,(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
812 ;; Arabic |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
813 (#x5ac . ?,G,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
814 (#x5bb . ?,G;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
815 (#x5bf . ?,G?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
816 (#x5c1 . ?,GA(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
817 (#x5c2 . ?,GB(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
818 (#x5c3 . ?,GC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
819 (#x5c4 . ?,GD(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
820 (#x5c5 . ?,GE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
821 (#x5c6 . ?,GF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
822 (#x5c7 . ?,GG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
823 (#x5c8 . ?,GH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
824 (#x5c9 . ?,GI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
825 (#x5ca . ?,GJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
826 (#x5cb . ?,GK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
827 (#x5cc . ?,GL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
828 (#x5cd . ?,GM(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
829 (#x5ce . ?,GN(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
830 (#x5cf . ?,GO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
831 (#x5d0 . ?,GP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
832 (#x5d1 . ?,GQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
833 (#x5d2 . ?,GR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
834 (#x5d3 . ?,GS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
835 (#x5d4 . ?,GT(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
836 (#x5d5 . ?,GU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
837 (#x5d6 . ?,GV(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
838 (#x5d7 . ?,GW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
839 (#x5d8 . ?,GX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
840 (#x5d9 . ?,GY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
841 (#x5da . ?,GZ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
842 (#x5e0 . ?,G`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
843 (#x5e1 . ?,Ga(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
844 (#x5e2 . ?,Gb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
845 (#x5e3 . ?,Gc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
846 (#x5e4 . ?,Gd(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
847 (#x5e5 . ?,Ge(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
848 (#x5e6 . ?,Gf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
849 (#x5e7 . ?,Gg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
850 (#x5e8 . ?,Gh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
851 (#x5e9 . ?,Gi(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
852 (#x5ea . ?,Gj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
853 (#x5eb . ?,Gk(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
854 (#x5ec . ?,Gl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
855 (#x5ed . ?,Gm(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
856 (#x5ee . ?,Gn(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
857 (#x5ef . ?,Go(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
858 (#x5f0 . ?,Gp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
859 (#x5f1 . ?,Gq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
860 (#x5f2 . ?,Gr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
861 ;; Cyrillic |
66389
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
862 (#x680 . ?$,1)R(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
863 (#x681 . ?$,1)V(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
864 (#x682 . ?$,1)Z(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
865 (#x683 . ?$,1)\(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
866 (#x684 . ?$,1)b(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
867 (#x685 . ?$,1)n(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
868 (#x686 . ?$,1)p(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
869 (#x687 . ?$,1)r(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
870 (#x688 . ?$,1)v(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
871 (#x689 . ?$,1)x(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
872 (#x68a . ?$,1)z(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
873 (#x68c . ?$,1*8(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
874 (#x68d . ?$,1*B(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
875 (#x68e . ?$,1*H(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
876 (#x68f . ?$,1*N(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
877 (#x690 . ?$,1)S(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
878 (#x691 . ?$,1)W(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
879 (#x692 . ?$,1)[(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
880 (#x693 . ?$,1)](B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
881 (#x694 . ?$,1)c(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
882 (#x695 . ?$,1)o(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
883 (#x696 . ?$,1)q(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
884 (#x697 . ?$,1)s(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
885 (#x698 . ?$,1)w(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
886 (#x699 . ?$,1)y(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
887 (#x69a . ?$,1){(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
888 (#x69c . ?$,1*9(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
889 (#x69d . ?$,1*C(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
890 (#x69e . ?$,1*I(B) |
58043855503e
Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents:
65941
diff
changeset
|
891 (#x69f . ?$,1*O(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
892 (#x6a1 . ?,Lr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
893 (#x6a2 . ?,Ls(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
894 (#x6a3 . ?,Lq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
895 (#x6a4 . ?,Lt(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
896 (#x6a5 . ?,Lu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
897 (#x6a6 . ?,Lv(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
898 (#x6a7 . ?,Lw(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
899 (#x6a8 . ?,Lx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
900 (#x6a9 . ?,Ly(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
901 (#x6aa . ?,Lz(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
902 (#x6ab . ?,L{(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
903 (#x6ac . ?,L|(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
904 (#x6ae . ?,L~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
905 (#x6af . ?,L(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
906 (#x6b0 . ?,Lp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
907 (#x6b1 . ?,L"(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
908 (#x6b2 . ?,L#(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
909 (#x6b3 . ?,L!(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
910 (#x6b4 . ?,L$(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
911 (#x6b5 . ?,L%(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
912 (#x6b6 . ?,L&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
913 (#x6b7 . ?,L'(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
914 (#x6b8 . ?,L((B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
915 (#x6b9 . ?,L)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
916 (#x6ba . ?,L*(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
917 (#x6bb . ?,L+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
918 (#x6bc . ?,L,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
919 (#x6be . ?,L.(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
920 (#x6bf . ?,L/(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
921 (#x6c0 . ?,Ln(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
922 (#x6c1 . ?,LP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
923 (#x6c2 . ?,LQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
924 (#x6c3 . ?,Lf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
925 (#x6c4 . ?,LT(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
926 (#x6c5 . ?,LU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
927 (#x6c6 . ?,Ld(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
928 (#x6c7 . ?,LS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
929 (#x6c8 . ?,Le(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
930 (#x6c9 . ?,LX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
931 (#x6ca . ?,LY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
932 (#x6cb . ?,LZ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
933 (#x6cc . ?,L[(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
934 (#x6cd . ?,L\(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
935 (#x6ce . ?,L](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
936 (#x6cf . ?,L^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
937 (#x6d0 . ?,L_(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
938 (#x6d1 . ?,Lo(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
939 (#x6d2 . ?,L`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
940 (#x6d3 . ?,La(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
941 (#x6d4 . ?,Lb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
942 (#x6d5 . ?,Lc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
943 (#x6d6 . ?,LV(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
944 (#x6d7 . ?,LR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
945 (#x6d8 . ?,Ll(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
946 (#x6d9 . ?,Lk(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
947 (#x6da . ?,LW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
948 (#x6db . ?,Lh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
949 (#x6dc . ?,Lm(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
950 (#x6dd . ?,Li(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
951 (#x6de . ?,Lg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
952 (#x6df . ?,Lj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
953 (#x6e0 . ?,LN(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
954 (#x6e1 . ?,L0(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
955 (#x6e2 . ?,L1(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
956 (#x6e3 . ?,LF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
957 (#x6e4 . ?,L4(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
958 (#x6e5 . ?,L5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
959 (#x6e6 . ?,LD(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
960 (#x6e7 . ?,L3(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
961 (#x6e8 . ?,LE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
962 (#x6e9 . ?,L8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
963 (#x6ea . ?,L9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
964 (#x6eb . ?,L:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
965 (#x6ec . ?,L;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
966 (#x6ed . ?,L<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
967 (#x6ee . ?,L=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
968 (#x6ef . ?,L>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
969 (#x6f0 . ?,L?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
970 (#x6f1 . ?,LO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
971 (#x6f2 . ?,L@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
972 (#x6f3 . ?,LA(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
973 (#x6f4 . ?,LB(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
974 (#x6f5 . ?,LC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
975 (#x6f6 . ?,L6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
976 (#x6f7 . ?,L2(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
977 (#x6f8 . ?,LL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
978 (#x6f9 . ?,LK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
979 (#x6fa . ?,L7(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
980 (#x6fb . ?,LH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
981 (#x6fc . ?,LM(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
982 (#x6fd . ?,LI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
983 (#x6fe . ?,LG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
984 (#x6ff . ?,LJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
985 ;; Greek |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
986 (#x7a1 . ?,F6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
987 (#x7a2 . ?,F8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
988 (#x7a3 . ?,F9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
989 (#x7a4 . ?,F:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
990 (#x7a5 . ?,FZ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
991 (#x7a7 . ?,F<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
992 (#x7a8 . ?,F>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
993 (#x7a9 . ?,F[(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
994 (#x7ab . ?,F?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
995 (#x7ae . ?,F5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
996 (#x7af . ?,F/(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
997 (#x7b1 . ?,F\(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
998 (#x7b2 . ?,F](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
999 (#x7b3 . ?,F^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1000 (#x7b4 . ?,F_(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1001 (#x7b5 . ?,Fz(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1002 (#x7b6 . ?,F@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1003 (#x7b7 . ?,F|(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1004 (#x7b8 . ?,F}(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1005 (#x7b9 . ?,F{(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1006 (#x7ba . ?,F`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1007 (#x7bb . ?,F~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1008 (#x7c1 . ?,FA(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1009 (#x7c2 . ?,FB(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1010 (#x7c3 . ?,FC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1011 (#x7c4 . ?,FD(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1012 (#x7c5 . ?,FE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1013 (#x7c6 . ?,FF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1014 (#x7c7 . ?,FG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1015 (#x7c8 . ?,FH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1016 (#x7c9 . ?,FI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1017 (#x7ca . ?,FJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1018 (#x7cb . ?,FK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1019 (#x7cc . ?,FL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1020 (#x7cd . ?,FM(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1021 (#x7ce . ?,FN(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1022 (#x7cf . ?,FO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1023 (#x7d0 . ?,FP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1024 (#x7d1 . ?,FQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1025 (#x7d2 . ?,FS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1026 (#x7d4 . ?,FT(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1027 (#x7d5 . ?,FU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1028 (#x7d6 . ?,FV(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1029 (#x7d7 . ?,FW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1030 (#x7d8 . ?,FX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1031 (#x7d9 . ?,FY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1032 (#x7e1 . ?,Fa(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1033 (#x7e2 . ?,Fb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1034 (#x7e3 . ?,Fc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1035 (#x7e4 . ?,Fd(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1036 (#x7e5 . ?,Fe(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1037 (#x7e6 . ?,Ff(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1038 (#x7e7 . ?,Fg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1039 (#x7e8 . ?,Fh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1040 (#x7e9 . ?,Fi(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1041 (#x7ea . ?,Fj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1042 (#x7eb . ?,Fk(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1043 (#x7ec . ?,Fl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1044 (#x7ed . ?,Fm(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1045 (#x7ee . ?,Fn(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1046 (#x7ef . ?,Fo(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1047 (#x7f0 . ?,Fp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1048 (#x7f1 . ?,Fq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1049 (#x7f2 . ?,Fs(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1050 (#x7f3 . ?,Fr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1051 (#x7f4 . ?,Ft(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1052 (#x7f5 . ?,Fu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1053 (#x7f6 . ?,Fv(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1054 (#x7f7 . ?,Fw(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1055 (#x7f8 . ?,Fx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1056 (#x7f9 . ?,Fy(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1057 ;; Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1058 (#x8a1 . ?$,1|W(B) |
89909 | 1059 (#x8a2 . ?$A)0(B) |
1060 (#x8a3 . ?$A)$(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1061 (#x8a4 . ?$,1{ (B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1062 (#x8a5 . ?$,1{!(B) |
89909 | 1063 (#x8a6 . ?$A)&(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1064 (#x8a7 . ?$,1|A(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1065 (#x8a8 . ?$,1|C(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1066 (#x8a9 . ?$,1|D(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1067 (#x8aa . ?$,1|F(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1068 (#x8ab . ?$,1|;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1069 (#x8ac . ?$,1|=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1070 (#x8ad . ?$,1|>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1071 (#x8ae . ?$,1|@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1072 (#x8af . ?$,1|H(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1073 (#x8b0 . ?$,1|L(B) |
89909 | 1074 (#x8bc . ?$A!\(B) |
1075 (#x8bd . ?$A!Y(B) | |
1076 (#x8be . ?$A!](B) | |
1077 (#x8bf . ?$A!R(B) | |
1078 (#x8c0 . ?$A!`(B) | |
1079 (#x8c1 . ?$A!X(B) | |
1080 (#x8c2 . ?$A!^(B) | |
1081 (#x8c5 . ?$B"`(B) | |
1082 (#x8c8 . ?$(G"D(B) | |
1083 (#x8c9 . ?$(O"l(B) | |
1084 (#x8cd . ?$B"N(B) | |
1085 (#x8ce . ?$B"M(B) | |
1086 (#x8cf . ?$A!T(B) | |
1087 (#x8d6 . ?$A!L(B) | |
1088 (#x8da . ?$B">(B) | |
1089 (#x8db . ?$B"?(B) | |
1090 (#x8dc . ?$A!I(B) | |
1091 (#x8dd . ?$A!H(B) | |
1092 (#x8de . ?$A!D(B) | |
1093 (#x8df . ?$A!E(B) | |
1094 (#x8ef . ?$B"_(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1095 (#x8f6 . ?$,1!R(B) |
89909 | 1096 (#x8fb . ?$A!{(B) |
1097 (#x8fc . ?$A!|(B) | |
1098 (#x8fd . ?$A!z(B) | |
1099 (#x8fe . ?$A!}(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1100 ;; Special |
89909 | 1101 (#x9e0 . ?$A!t(B) |
1102 (#x9e1 . ?$(C"F(B) | |
1103 (#x9e2 . ?$(GB*(B) | |
1104 (#x9e3 . ?$(GB-(B) | |
1105 (#x9e4 . ?$(GB.(B) | |
1106 (#x9e5 . ?$(GB+(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1107 (#x9e8 . ?$,1}d(B) |
89909 | 1108 (#x9e9 . ?$(GB,(B) |
1109 (#x9ea . ?$A)<(B) | |
1110 (#x9eb . ?$A)4(B) | |
1111 (#x9ec . ?$A)0(B) | |
1112 (#x9ed . ?$A)8(B) | |
1113 (#x9ee . ?$A)`(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1114 (#x9ef . ?$,1|Z(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1115 (#x9f0 . ?$,1|[(B) |
89909 | 1116 (#x9f1 . ?$A)$(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1117 (#x9f2 . ?$,1|\(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1118 (#x9f3 . ?$,1|](B) |
89909 | 1119 (#x9f4 . ?$A)@(B) |
1120 (#x9f5 . ?$A)H(B) | |
1121 (#x9f6 . ?$A)X(B) | |
1122 (#x9f7 . ?$A)P(B) | |
1123 (#x9f8 . ?$A)&(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1124 ;; Publishing |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1125 (#xaa1 . ?$,1rc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1126 (#xaa2 . ?$,1rb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1127 (#xaa3 . ?$,1rd(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1128 (#xaa4 . ?$,1re(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1129 (#xaa5 . ?$,1rg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1130 (#xaa6 . ?$,1rh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1131 (#xaa7 . ?$,1ri(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1132 (#xaa8 . ?$,1rj(B) |
89909 | 1133 (#xaa9 . ?$(G!7(B) |
1134 (#xaaa . ?$(G!9(B) | |
1135 (#xaae . ?$A!-(B) | |
1136 (#xaaf . ?$(G!-(B) | |
1137 (#xab0 . ?$(O'x(B) | |
1138 (#xab1 . ?$(O'y(B) | |
1139 (#xab2 . ?$(O'z(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1140 (#xab3 . ?$,1v6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1141 (#xab4 . ?$,1v7(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1142 (#xab5 . ?$,1v8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1143 (#xab6 . ?$,1v9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1144 (#xab7 . ?$,1v:(B) |
89909 | 1145 (#xab8 . ?$(G""(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1146 (#xabb . ?$,1rr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1147 (#xabc . ?$,1{)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1148 (#xabe . ?$,1{*(B) |
89909 | 1149 (#xac3 . ?$(C({(B) |
1150 (#xac4 . ?$(C(|(B) | |
1151 (#xac5 . ?$(C(}(B) | |
1152 (#xac6 . ?$(C(~(B) | |
1153 (#xac9 . ?$(D"o(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1154 (#xaca . ?$,2"s(B) |
89909 | 1155 (#xacc . ?$(O##(B) |
1156 (#xacd . ?$(O#!(B) | |
1157 (#xace . ?$A!p(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1158 (#xacf . ?$,2!o(B) |
89909 | 1159 (#xad0 . ?,F!(B) |
1160 (#xad1 . ?,F"(B) | |
1161 (#xad2 . ?,Y4(B) | |
1162 (#xad3 . ?,Y!(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1163 (#xad4 . ?$,1u^(B) |
89909 | 1164 (#xad6 . ?$A!d(B) |
1165 (#xad7 . ?$A!e(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1166 (#xad9 . ?$,2%](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1167 (#xadb . ?$,2!l(B) |
89909 | 1168 (#xadc . ?$(O#$(B) |
1169 (#xadd . ?$(O#"(B) | |
1170 (#xade . ?$A!q(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1171 (#xadf . ?$,2!n(B) |
89909 | 1172 (#xae0 . ?$(O#?(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1173 (#xae1 . ?$,2!k(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1174 (#xae2 . ?$,2!m(B) |
89909 | 1175 (#xae3 . ?$A!w(B) |
1176 (#xae4 . ?$(G!}(B) | |
1177 (#xae5 . ?$A!n(B) | |
1178 (#xae6 . ?$(O#@(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1179 (#xae7 . ?$,2!j(B) |
89909 | 1180 (#xae8 . ?$A!x(B) |
1181 (#xae9 . ?$(G!~(B) | |
1182 (#xaea . ?$(C"P(B) | |
1183 (#xaeb . ?$(O-~(B) | |
1184 (#xaec . ?$(O&@(B) | |
1185 (#xaed . ?$(O&<(B) | |
1186 (#xaee . ?$(O&>(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1187 (#xaf0 . ?$,2%`(B) |
89909 | 1188 (#xaf1 . ?$B"w(B) |
1189 (#xaf2 . ?$B"x(B) | |
1190 (#xaf3 . ?$(O'{(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1191 (#xaf4 . ?$,2%W(B) |
89909 | 1192 (#xaf5 . ?$B"t(B) |
1193 (#xaf6 . ?$B"u(B) | |
1194 (#xaf7 . ?$A!a(B) | |
1195 (#xaf8 . ?$A!b(B) | |
1196 (#xaf9 . ?$(O&g(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1197 (#xafa . ?$,1zu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1198 (#xafb . ?$,1uW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1199 (#xafc . ?$,1s8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1200 (#xafd . ?$,1rz(B) |
89909 | 1201 (#xafe . ?,Y%(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1202 ;; APL |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1203 (#xba3 . ?<) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1204 (#xba6 . ?>) |
89909 | 1205 (#xba8 . ?$A!E(B) |
1206 (#xba9 . ?$A!D(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1207 (#xbc0 . ?,A/(B) |
89909 | 1208 (#xbc2 . ?$A!M(B) |
1209 (#xbc3 . ?$A!I(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1210 (#xbc4 . ?$,1zj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1211 (#xbc6 . ?_) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1212 (#xbca . ?$,1x8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1213 (#xbcc . ?$,1|5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1214 (#xbce . ?$,1yd(B) |
89909 | 1215 (#xbcf . ?$A!p(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1216 (#xbd3 . ?$,1zh(B) |
89909 | 1217 (#xbd6 . ?$A!H(B) |
1218 (#xbd8 . ?$B"?(B) | |
1219 (#xbda . ?$B">(B) | |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1220 (#xbdc . ?$,1yb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1221 (#xbfc . ?$,1yc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1222 ;; Hebrew |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1223 (#xcdf . ?,H_(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1224 (#xce0 . ?,H`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1225 (#xce1 . ?,Ha(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1226 (#xce2 . ?,Hb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1227 (#xce3 . ?,Hc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1228 (#xce4 . ?,Hd(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1229 (#xce5 . ?,He(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1230 (#xce6 . ?,Hf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1231 (#xce7 . ?,Hg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1232 (#xce8 . ?,Hh(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1233 (#xce9 . ?,Hi(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1234 (#xcea . ?,Hj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1235 (#xceb . ?,Hk(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1236 (#xcec . ?,Hl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1237 (#xced . ?,Hm(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1238 (#xcee . ?,Hn(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1239 (#xcef . ?,Ho(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1240 (#xcf0 . ?,Hp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1241 (#xcf1 . ?,Hq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1242 (#xcf2 . ?,Hr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1243 (#xcf3 . ?,Hs(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1244 (#xcf4 . ?,Ht(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1245 (#xcf5 . ?,Hu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1246 (#xcf6 . ?,Hv(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1247 (#xcf7 . ?,Hw(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1248 (#xcf8 . ?,Hx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1249 (#xcf9 . ?,Hy(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1250 (#xcfa . ?,Hz(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1251 ;; Thai |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1252 (#xda1 . ?,T!(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1253 (#xda2 . ?,T"(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1254 (#xda3 . ?,T#(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1255 (#xda4 . ?,T$(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1256 (#xda5 . ?,T%(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1257 (#xda6 . ?,T&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1258 (#xda7 . ?,T'(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1259 (#xda8 . ?,T((B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1260 (#xda9 . ?,T)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1261 (#xdaa . ?,T*(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1262 (#xdab . ?,T+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1263 (#xdac . ?,T,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1264 (#xdad . ?,T-(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1265 (#xdae . ?,T.(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1266 (#xdaf . ?,T/(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1267 (#xdb0 . ?,T0(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1268 (#xdb1 . ?,T1(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1269 (#xdb2 . ?,T2(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1270 (#xdb3 . ?,T3(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1271 (#xdb4 . ?,T4(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1272 (#xdb5 . ?,T5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1273 (#xdb6 . ?,T6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1274 (#xdb7 . ?,T7(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1275 (#xdb8 . ?,T8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1276 (#xdb9 . ?,T9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1277 (#xdba . ?,T:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1278 (#xdbb . ?,T;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1279 (#xdbc . ?,T<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1280 (#xdbd . ?,T=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1281 (#xdbe . ?,T>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1282 (#xdbf . ?,T?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1283 (#xdc0 . ?,T@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1284 (#xdc1 . ?,TA(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1285 (#xdc2 . ?,TB(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1286 (#xdc3 . ?,TC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1287 (#xdc4 . ?,TD(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1288 (#xdc5 . ?,TE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1289 (#xdc6 . ?,TF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1290 (#xdc7 . ?,TG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1291 (#xdc8 . ?,TH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1292 (#xdc9 . ?,TI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1293 (#xdca . ?,TJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1294 (#xdcb . ?,TK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1295 (#xdcc . ?,TL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1296 (#xdcd . ?,TM(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1297 (#xdce . ?,TN(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1298 (#xdcf . ?,TO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1299 (#xdd0 . ?,TP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1300 (#xdd1 . ?,TQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1301 (#xdd2 . ?,TR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1302 (#xdd3 . ?,TS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1303 (#xdd4 . ?,TT(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1304 (#xdd5 . ?,TU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1305 (#xdd6 . ?,TV(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1306 (#xdd7 . ?,TW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1307 (#xdd8 . ?,TX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1308 (#xdd9 . ?,TY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1309 (#xdda . ?,TZ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1310 (#xddf . ?,T_(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1311 (#xde0 . ?,T`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1312 (#xde1 . ?,Ta(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1313 (#xde2 . ?,Tb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1314 (#xde3 . ?,Tc(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1315 (#xde4 . ?,Td(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1316 (#xde5 . ?,Te(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1317 (#xde6 . ?,Tf(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1318 (#xde7 . ?,Tg(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1319 (#xde8 . ?,Th(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1320 (#xde9 . ?,Ti(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1321 (#xdea . ?,Tj(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1322 (#xdeb . ?,Tk(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1323 (#xdec . ?,Tl(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1324 (#xded . ?,Tm(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1325 (#xdf0 . ?,Tp(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1326 (#xdf1 . ?,Tq(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1327 (#xdf2 . ?,Tr(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1328 (#xdf3 . ?,Ts(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1329 (#xdf4 . ?,Tt(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1330 (#xdf5 . ?,Tu(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1331 (#xdf6 . ?,Tv(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1332 (#xdf7 . ?,Tw(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1333 (#xdf8 . ?,Tx(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1334 (#xdf9 . ?,Ty(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1335 ;; Korean |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1336 (#xea1 . ?$(C$!(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1337 (#xea2 . ?$(C$"(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1338 (#xea3 . ?$(C$#(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1339 (#xea4 . ?$(C$$(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1340 (#xea5 . ?$(C$%(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1341 (#xea6 . ?$(C$&(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1342 (#xea7 . ?$(C$'(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1343 (#xea8 . ?$(C$((B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1344 (#xea9 . ?$(C$)(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1345 (#xeaa . ?$(C$*(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1346 (#xeab . ?$(C$+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1347 (#xeac . ?$(C$,(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1348 (#xead . ?$(C$-(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1349 (#xeae . ?$(C$.(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1350 (#xeaf . ?$(C$/(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1351 (#xeb0 . ?$(C$0(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1352 (#xeb1 . ?$(C$1(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1353 (#xeb2 . ?$(C$2(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1354 (#xeb3 . ?$(C$3(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1355 (#xeb4 . ?$(C$4(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1356 (#xeb5 . ?$(C$5(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1357 (#xeb6 . ?$(C$6(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1358 (#xeb7 . ?$(C$7(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1359 (#xeb8 . ?$(C$8(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1360 (#xeb9 . ?$(C$9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1361 (#xeba . ?$(C$:(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1362 (#xebb . ?$(C$;(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1363 (#xebc . ?$(C$<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1364 (#xebd . ?$(C$=(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1365 (#xebe . ?$(C$>(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1366 (#xebf . ?$(C$?(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1367 (#xec0 . ?$(C$@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1368 (#xec1 . ?$(C$A(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1369 (#xec2 . ?$(C$B(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1370 (#xec3 . ?$(C$C(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1371 (#xec4 . ?$(C$D(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1372 (#xec5 . ?$(C$E(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1373 (#xec6 . ?$(C$F(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1374 (#xec7 . ?$(C$G(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1375 (#xec8 . ?$(C$H(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1376 (#xec9 . ?$(C$I(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1377 (#xeca . ?$(C$J(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1378 (#xecb . ?$(C$K(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1379 (#xecc . ?$(C$L(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1380 (#xecd . ?$(C$M(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1381 (#xece . ?$(C$N(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1382 (#xecf . ?$(C$O(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1383 (#xed0 . ?$(C$P(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1384 (#xed1 . ?$(C$Q(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1385 (#xed2 . ?$(C$R(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1386 (#xed3 . ?$(C$S(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1387 (#xed4 . ?$,1LH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1388 (#xed5 . ?$,1LI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1389 (#xed6 . ?$,1LJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1390 (#xed7 . ?$,1LK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1391 (#xed8 . ?$,1LL(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1392 (#xed9 . ?$,1LM(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1393 (#xeda . ?$,1LN(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1394 (#xedb . ?$,1LO(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1395 (#xedc . ?$,1LP(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1396 (#xedd . ?$,1LQ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1397 (#xede . ?$,1LR(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1398 (#xedf . ?$,1LS(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1399 (#xee0 . ?$,1LT(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1400 (#xee1 . ?$,1LU(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1401 (#xee2 . ?$,1LV(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1402 (#xee3 . ?$,1LW(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1403 (#xee4 . ?$,1LX(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1404 (#xee5 . ?$,1LY(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1405 (#xee6 . ?$,1LZ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1406 (#xee7 . ?$,1L[(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1407 (#xee8 . ?$,1L\(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1408 (#xee9 . ?$,1L](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1409 (#xeea . ?$,1L^(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1410 (#xeeb . ?$,1L_(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1411 (#xeec . ?$,1L`(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1412 (#xeed . ?$,1La(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1413 (#xeee . ?$,1Lb(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1414 (#xeef . ?$(C$](B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1415 (#xef0 . ?$(C$a(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1416 (#xef1 . ?$(C$h(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1417 (#xef2 . ?$(C$o(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1418 (#xef3 . ?$(C$q(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1419 (#xef4 . ?$(C$t(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1420 (#xef5 . ?$(C$v(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1421 (#xef6 . ?$(C$}(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1422 (#xef7 . ?$(C$~(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1423 (#xef8 . ?$,1M+(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1424 (#xef9 . ?$,1M0(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1425 (#xefa . ?$,1M9(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1426 (#xeff . ?$,1tI(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1427 ;; Latin-5 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1428 ;; Latin-6 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1429 ;; Latin-7 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1430 ;; Latin-8 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1431 ;; Latin-9 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1432 (#x13bc . ?,b<(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1433 (#x13bd . ?,b=(B) |
89909 | 1434 (#x13be . ?,_/(B) |
48091
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1435 ;; Currency |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1436 (#x20a0 . ?$,1t@(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1437 (#x20a1 . ?$,1tA(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1438 (#x20a2 . ?$,1tB(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1439 (#x20a3 . ?$,1tC(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1440 (#x20a4 . ?$,1tD(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1441 (#x20a5 . ?$,1tE(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1442 (#x20a6 . ?$,1tF(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1443 (#x20a7 . ?$,1tG(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1444 (#x20a8 . ?$,1tH(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1445 (#x20aa . ?$,1tJ(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1446 (#x20ab . ?$,1tK(B) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1447 (#x20ac . ?,b$(B))) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1448 (puthash (car pair) (cdr pair) x-keysym-table)) |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1449 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1450 ;; The following keysym codes for graphics are listed in the document |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1451 ;; as not having unicodes available: |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1452 |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1453 ;; #x08b1 TOP LEFT SUMMATION Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1454 ;; #x08b2 BOTTOM LEFT SUMMATION Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1455 ;; #x08b3 TOP VERTICAL SUMMATION CONNECTOR Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1456 ;; #x08b4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1457 ;; #x08b5 TOP RIGHT SUMMATION Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1458 ;; #x08b6 BOTTOM RIGHT SUMMATION Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1459 ;; #x08b7 RIGHT MIDDLE SUMMATION Technical |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1460 ;; #x0aac SIGNIFICANT BLANK SYMBOL Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1461 ;; #x0abd DECIMAL POINT Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1462 ;; #x0abf MARKER Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1463 ;; #x0acb TRADEMARK SIGN IN CIRCLE Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1464 ;; #x0ada HEXAGRAM Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1465 ;; #x0aff CURSOR Publish |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1466 ;; #x0dde THAI MAIHANAKAT Thai |
21fa9981d2ba
Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents:
47198
diff
changeset
|
1467 |
54 | 1468 |
1546 | 1469 ;;;; Selections and cut buffers |
707 | 1470 |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1471 ;; We keep track of the last text selected here, so we can check the |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1472 ;; current selection against it, and avoid passing back our own text |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1473 ;; from x-cut-buffer-or-selection-value. We track all three |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1474 ;; seperately in case another X application only sets one of them |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1475 ;; (say the cut buffer) we aren't fooled by the PRIMARY or |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1476 ;; CLIPBOARD selection staying the same. |
44807
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1477 (defvar x-last-selected-text-clipboard nil |
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1478 "The value of the CLIPBOARD X selection last time we selected or |
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1479 pasted text.") |
50075
cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
49599
diff
changeset
|
1480 (defvar x-last-selected-text-primary nil |
44807
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1481 "The value of the PRIMARY X selection last time we selected or |
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1482 pasted text.") |
50075
cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
49599
diff
changeset
|
1483 (defvar x-last-selected-text-cut nil |
58695
b742505dc5c4
(x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents:
56674
diff
changeset
|
1484 "The value of the X cut buffer last time we selected or pasted text. |
b742505dc5c4
(x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents:
56674
diff
changeset
|
1485 The actual text stored in the X cut buffer is what encoded from this value.") |
b742505dc5c4
(x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents:
56674
diff
changeset
|
1486 (defvar x-last-selected-text-cut-encoded nil |
b742505dc5c4
(x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents:
56674
diff
changeset
|
1487 "The value of the X cut buffer last time we selected or pasted text. |
b742505dc5c4
(x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents:
56674
diff
changeset
|
1488 This is the actual text stored in the X cut buffer.") |
74094
1fee8f7da8cf
(x-last-cut-buffer-coding): New variable.
Jan Djärv <jan.h.d@swipnet.se>
parents:
74042
diff
changeset
|
1489 (defvar x-last-cut-buffer-coding 'iso-latin-1 |
1fee8f7da8cf
(x-last-cut-buffer-coding): New variable.
Jan Djärv <jan.h.d@swipnet.se>
parents:
74042
diff
changeset
|
1490 "The coding we last used to encode/decode the text from the X cut buffer") |
727 | 1491 |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1492 (defvar x-cut-buffer-max 20000 ; Note this value is overridden below. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1493 "Max number of characters to put in the cut buffer. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1494 It is said that overlarge strings are slow to put into the cut buffer.") |
4236
8e14db210975
(x-select-text): Limit size of text sent to cut buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4132
diff
changeset
|
1495 |
33917
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1496 (defcustom x-select-enable-clipboard nil |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
1497 "Non-nil means cutting and pasting uses the clipboard. |
33917
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1498 This is in addition to, but in preference to, the primary selection." |
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1499 :type 'boolean |
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1500 :group 'killing) |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
1501 |
87385
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1502 (defcustom x-select-enable-primary t |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1503 "Non-nil means cutting and pasting uses the primary selection." |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1504 :type 'boolean |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1505 :group 'killing) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1506 |
3036
98f500ca5593
(x-select-text): New arg PUSH.
Richard M. Stallman <rms@gnu.org>
parents:
2808
diff
changeset
|
1507 (defun x-select-text (text &optional push) |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1508 "Make TEXT, a string, the primary X selection. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1509 Also, set the value of X cut buffer 0, for backward compatibility |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1510 with older X applications. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1511 gildea@stop.mail-abuse.org says it's not desirable to put kills |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1512 in the clipboard." |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1513 ;; With multi-tty, this function may be called from a tty frame. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1514 (when (eq (framep (selected-frame)) 'x) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1515 ;; Don't send the cut buffer too much text. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1516 ;; It becomes slow, and if really big it causes errors. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1517 (cond ((>= (length text) x-cut-buffer-max) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1518 (x-set-cut-buffer "" push) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1519 (setq x-last-selected-text-cut "" |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1520 x-last-selected-text-cut-encoded "")) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1521 (t |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1522 (setq x-last-selected-text-cut text |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1523 x-last-cut-buffer-coding 'iso-latin-1 |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1524 x-last-selected-text-cut-encoded |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1525 ;; ICCCM says cut buffer always contain ISO-Latin-1 |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1526 (encode-coding-string text 'iso-latin-1)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1527 (x-set-cut-buffer x-last-selected-text-cut-encoded push))) |
87385
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1528 (when x-select-enable-primary |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1529 (x-set-selection 'PRIMARY text) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1530 (setq x-last-selected-text-primary text)) |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1531 (when x-select-enable-clipboard |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1532 (x-set-selection 'CLIPBOARD text) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1533 (setq x-last-selected-text-clipboard text)))) |
643 | 1534 |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1535 (defvar x-select-request-type nil |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1536 "*Data type request for X selection. |
91106
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1537 The value is one of the following data types, a list of them, or nil: |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1538 `COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT' |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1539 |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1540 If the value is one of the above symbols, try only the specified |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1541 type. |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1542 |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1543 If the value is a list of them, try each of them in the specified |
91106
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1544 order until succeed. |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1545 |
91106
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1546 The value nil is the same as this list: |
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1547 \(UTF8_STRING COMPOUND_TEXT STRING) |
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1548 ") |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1549 |
63191
d9becfcb69a7
(x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents:
63182
diff
changeset
|
1550 ;; Get a selection value of type TYPE by calling x-get-selection with |
91101
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1551 ;; an appropiate DATA-TYPE argument decided by `x-select-request-type'. |
63191
d9becfcb69a7
(x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents:
63182
diff
changeset
|
1552 ;; The return value is already decoded. If x-get-selection causes an |
d9becfcb69a7
(x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents:
63182
diff
changeset
|
1553 ;; error, this function return nil. |
d9becfcb69a7
(x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents:
63182
diff
changeset
|
1554 |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1555 (defun x-selection-value (type) |
91106
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1556 (let ((request-type (or x-select-request-type |
f85bdd140960
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91101
diff
changeset
|
1557 '(UTF8_STRING COMPOUND_TEXT STRING))) |
91101
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1558 text) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1559 (if (consp request-type) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1560 (while (and request-type (not text)) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1561 (condition-case nil |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1562 (setq text (x-get-selection type (car request-type))) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1563 (error nil)) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1564 (setq request-type (cdr request-type))) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1565 (condition-case nil |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1566 (setq text (x-get-selection type request-type)) |
eb12ed8fee16
(x-selection-value): If x-select-request-type is
Kenichi Handa <handa@m17n.org>
parents:
91085
diff
changeset
|
1567 (error nil))) |
51601
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1568 (if text |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1569 (remove-text-properties 0 (length text) '(foreign-selection nil) text)) |
c2c18aa16be3
(x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents:
51181
diff
changeset
|
1570 text)) |
64701
34bd8e434dd7
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
64084
diff
changeset
|
1571 |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1572 ;; Return the value of the current X selection. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1573 ;; Consult the selection, and the cut buffer. Treat empty strings |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1574 ;; as if they were unset. |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1575 ;; If this function is called twice and finds the same text, |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1576 ;; it returns nil the second time. This is so that a single |
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1577 ;; selection won't be added to the kill ring over and over. |
707 | 1578 (defun x-cut-buffer-or-selection-value () |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1579 ;; With multi-tty, this function may be called from a tty frame. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1580 (when (eq (framep (selected-frame)) 'x) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1581 (let (clip-text primary-text cut-text) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1582 (when x-select-enable-clipboard |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1583 (setq clip-text (x-selection-value 'CLIPBOARD)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1584 (if (string= clip-text "") (setq clip-text nil)) |
44807
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1585 |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1586 ;; Check the CLIPBOARD selection for 'newness', is it different |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1587 ;; from what we remebered them to be last time we did a |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1588 ;; cut/paste operation. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1589 (setq clip-text |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1590 (cond ;; check clipboard |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1591 ((or (not clip-text) (string= clip-text "")) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1592 (setq x-last-selected-text-clipboard nil)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1593 ((eq clip-text x-last-selected-text-clipboard) nil) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1594 ((string= clip-text x-last-selected-text-clipboard) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1595 ;; Record the newer string, |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1596 ;; so subsequent calls can use the `eq' test. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1597 (setq x-last-selected-text-clipboard clip-text) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1598 nil) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1599 (t (setq x-last-selected-text-clipboard clip-text))))) |
44807
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1600 |
87385
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1601 (when x-select-enable-primary |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1602 (setq primary-text (x-selection-value 'PRIMARY)) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1603 ;; Check the PRIMARY selection for 'newness', is it different |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1604 ;; from what we remebered them to be last time we did a |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1605 ;; cut/paste operation. |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1606 (setq primary-text |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1607 (cond ;; check primary selection |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1608 ((or (not primary-text) (string= primary-text "")) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1609 (setq x-last-selected-text-primary nil)) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1610 ((eq primary-text x-last-selected-text-primary) nil) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1611 ((string= primary-text x-last-selected-text-primary) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1612 ;; Record the newer string, |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1613 ;; so subsequent calls can use the `eq' test. |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1614 (setq x-last-selected-text-primary primary-text) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1615 nil) |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1616 (t |
4f4b8e4f7e4e
(x-select-enable-primary): New option.
Richard M. Stallman <rms@gnu.org>
parents:
86308
diff
changeset
|
1617 (setq x-last-selected-text-primary primary-text))))) |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1618 |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1619 (setq cut-text (x-get-cut-buffer 0)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1620 |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1621 ;; Check the x cut buffer for 'newness', is it different |
44807
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1622 ;; from what we remebered them to be last time we did a |
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1623 ;; cut/paste operation. |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1624 (setq cut-text |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1625 (let ((next-coding (or next-selection-coding-system 'iso-latin-1))) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1626 (cond ;; check cut buffer |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1627 ((or (not cut-text) (string= cut-text "")) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1628 (setq x-last-selected-text-cut nil)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1629 ;; This short cut doesn't work because x-get-cut-buffer |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1630 ;; always returns a newly created string. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1631 ;; ((eq cut-text x-last-selected-text-cut) nil) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1632 ((and (string= cut-text x-last-selected-text-cut-encoded) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1633 (eq x-last-cut-buffer-coding next-coding)) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1634 ;; See the comment above. No need of this recording. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1635 ;; Record the newer string, |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1636 ;; so subsequent calls can use the `eq' test. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1637 ;; (setq x-last-selected-text-cut cut-text) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1638 nil) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1639 (t |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1640 (setq x-last-selected-text-cut-encoded cut-text |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1641 x-last-cut-buffer-coding next-coding |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1642 x-last-selected-text-cut |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1643 ;; ICCCM says cut buffer always contain ISO-Latin-1, but |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1644 ;; use next-selection-coding-system if not nil. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1645 (decode-coding-string |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1646 cut-text next-coding)))))) |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1647 |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1648 ;; As we have done one selection, clear this now. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1649 (setq next-selection-coding-system nil) |
17014
828cf55629fc
Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents:
16835
diff
changeset
|
1650 |
85995
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1651 ;; At this point we have recorded the current values for the |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1652 ;; selection from clipboard (if we are supposed to) primary, |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1653 ;; and cut buffer. So return the first one that has changed |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1654 ;; (which is the first non-null one). |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1655 ;; |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1656 ;; NOTE: There will be cases where more than one of these has |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1657 ;; changed and the new values differ. This indicates that |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1658 ;; something like the following has happened since the last time |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1659 ;; we looked at the selections: Application X set all the |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1660 ;; selections, then Application Y set only one or two of them (say |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1661 ;; just the cut-buffer). In this case since we don't have |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1662 ;; timestamps there is no way to know what the 'correct' value to |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1663 ;; return is. The nice thing to do would be to tell the user we |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1664 ;; saw multiple possible selections and ask the user which was the |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1665 ;; one they wanted. |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1666 ;; This code is still a big improvement because now the user can |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1667 ;; futz with the current selection and get emacs to pay attention |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1668 ;; to the cut buffer again (previously as soon as clipboard or |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1669 ;; primary had been set the cut buffer would essentially never be |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1670 ;; checked again). |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1671 (or clip-text primary-text cut-text) |
898d36ac44d1
(x-select-text, x-cut-buffer-or-selection-value):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
85478
diff
changeset
|
1672 ))) |
2366
ed9b74c46fb9
* x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents:
2157
diff
changeset
|
1673 |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1674 ;; Arrange for the kill and yank functions to set and check the clipboard. |
707 | 1675 (setq interprogram-cut-function 'x-select-text) |
1676 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value) | |
273 | 1677 |
53662
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1678 (defun x-clipboard-yank () |
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1679 "Insert the clipboard contents, or the last stretch of killed text." |
72412
ec8109b4dd1d
(x-clipboard-yank): Specify * in interactive spec.
Richard M. Stallman <rms@gnu.org>
parents:
72388
diff
changeset
|
1680 (interactive "*") |
63191
d9becfcb69a7
(x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents:
63182
diff
changeset
|
1681 (let ((clipboard-text (x-selection-value 'CLIPBOARD)) |
53662
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1682 (x-select-enable-clipboard t)) |
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1683 (if (and clipboard-text (> (length clipboard-text) 0)) |
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1684 (kill-new clipboard-text)) |
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1685 (yank))) |
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1686 |
83542 | 1687 (defun x-menu-bar-open (&optional frame) |
1688 "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'." | |
1689 (interactive "i") | |
83639
b9b616870be8
(x-menu-bar-open): Use accelerate-menu.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83635
diff
changeset
|
1690 (if menu-bar-mode (accelerate-menu frame) |
83542 | 1691 (tmm-menubar))) |
1692 | |
1546 | 1693 |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1694 ;;; Window system initialization. |
17014
828cf55629fc
Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents:
16835
diff
changeset
|
1695 |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1696 (defun x-win-suspend-error () |
50075
cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents:
49599
diff
changeset
|
1697 (error "Suspending an Emacs running under X makes no sense")) |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1698 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1699 (defvar x-initialized nil |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1700 "Non-nil if the X window system has been initialized.") |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1701 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1702 (defun x-initialize-window-system () |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1703 "Initialize Emacs for X frames and open the first connection to an X server." |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1704 ;; Make sure we have a valid resource name. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1705 (or (stringp x-resource-name) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1706 (let (i) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1707 (setq x-resource-name (invocation-name)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1708 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1709 ;; Change any . or * characters in x-resource-name to hyphens, |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1710 ;; so as not to choke when we use it in X resource queries. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1711 (while (setq i (string-match "[.*]" x-resource-name)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1712 (aset x-resource-name i ?-)))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1713 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1714 (x-open-connection (or x-display-name |
83594
2716535391b7
Rudimentary fix for environment variable handling.
Miles Bader <miles@gnu.org>
parents:
83560
diff
changeset
|
1715 (setq x-display-name (or (getenv "DISPLAY" (selected-frame)) |
83421
bb2edc915032
Implement automatic terminal-local environment variables via `local-environment-variables'.
Karoly Lorentey <lorentey@elte.hu>
parents:
83416
diff
changeset
|
1716 (getenv "DISPLAY")))) |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1717 x-command-line-resources |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1718 ;; Exit Emacs with fatal error if this fails and we |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1719 ;; are the initial display. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1720 (eq initial-window-system 'x)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1721 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1722 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1723 x-cut-buffer-max)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1724 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1725 ;; Setup the default fontset. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1726 (setup-default-fontset) |
2366
ed9b74c46fb9
* x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents:
2157
diff
changeset
|
1727 |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1728 ;; Create the standard fontset. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1729 (create-fontset-from-fontset-spec standard-fontset-spec t) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1730 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1731 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1732 (create-fontset-from-x-resource) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1733 |
83550 | 1734 ;; Set scroll bar mode to right if set by X resources. Default is left. |
1735 (if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right") | |
1736 (customize-set-variable 'scroll-bar-mode 'right)) | |
1737 | |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1738 ;; Apply a geometry resource to the initial frame. Put it at the end |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1739 ;; of the alist, so that anything specified on the command line takes |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1740 ;; precedence. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1741 (let* ((res-geometry (x-get-resource "geometry" "Geometry")) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1742 parsed) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1743 (if res-geometry |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1744 (progn |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1745 (setq parsed (x-parse-geometry res-geometry)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1746 ;; If the resource specifies a position, |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1747 ;; call the position and size "user-specified". |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1748 (if (or (assq 'top parsed) (assq 'left parsed)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1749 (setq parsed (cons '(user-position . t) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1750 (cons '(user-size . t) parsed)))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1751 ;; All geometry parms apply to the initial frame. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1752 (setq initial-frame-alist (append initial-frame-alist parsed)) |
85111
ae1159126943
(x-alternatives-map): Remove spurious parenthesis.
Juanma Barranquero <lekktu@gmail.com>
parents:
85104
diff
changeset
|
1753 ;; The size parms apply to all frames. Don't set it if there are |
83544 | 1754 ;; sizes there already (from command line). |
1755 (if (and (assq 'height parsed) | |
1756 (not (assq 'height default-frame-alist))) | |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1757 (setq default-frame-alist |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1758 (cons (cons 'height (cdr (assq 'height parsed))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1759 default-frame-alist))) |
83544 | 1760 (if (and (assq 'width parsed) |
1761 (not (assq 'width default-frame-alist))) | |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1762 (setq default-frame-alist |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1763 (cons (cons 'width (cdr (assq 'width parsed))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1764 default-frame-alist)))))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1765 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1766 ;; Check the reverseVideo resource. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1767 (let ((case-fold-search t)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1768 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo"))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1769 (if (and rv |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1770 (string-match "^\\(true\\|yes\\|on\\)$" rv)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1771 (setq default-frame-alist |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1772 (cons '(reverse . t) default-frame-alist))))) |
51181
9de1323b5882
(iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50115
diff
changeset
|
1773 |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1774 ;; Set x-selection-timeout, measured in milliseconds. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1775 (let ((res-selection-timeout |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1776 (x-get-resource "selectionTimeout" "SelectionTimeout"))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1777 (setq x-selection-timeout 20000) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1778 (if res-selection-timeout |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1779 (setq x-selection-timeout (string-to-number res-selection-timeout)))) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1780 |
83065
a871be7b26a5
Implemented suspending of emacsclient frames.
Karoly Lorentey <lorentey@elte.hu>
parents:
83037
diff
changeset
|
1781 ;; Don't let Emacs suspend under X. |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1782 (add-hook 'suspend-hook 'x-win-suspend-error) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1783 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1784 ;; Turn off window-splitting optimization; X is usually fast enough |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1785 ;; that this is only annoying. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1786 (setq split-window-keep-point t) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1787 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1788 ;; Motif direct handling of f10 wasn't working right, |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1789 ;; So temporarily we've turned it off in lwlib-Xm.c |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1790 ;; and turned the Emacs f10 back on. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1791 ;; ;; Motif normally handles f10 itself, so don't try to handle it a second time. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1792 ;; (if (featurep 'motif) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1793 ;; (global-set-key [f10] 'ignore)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1794 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1795 ;; Turn on support for mouse wheels. |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1796 (mouse-wheel-mode 1) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1797 |
83019 | 1798 ;; Enable CLIPBOARD copy/paste through menu bar commands. |
1799 (menu-bar-enable-clipboard) | |
1800 | |
1801 ;; Override Paste so it looks at CLIPBOARD first. | |
1802 (define-key menu-bar-edit-menu [paste] | |
83543
6b25ef5cc276
Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents:
83542
diff
changeset
|
1803 (append '(menu-item "Paste" x-clipboard-yank |
6b25ef5cc276
Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents:
83542
diff
changeset
|
1804 :enable (not buffer-read-only) |
6b25ef5cc276
Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents:
83542
diff
changeset
|
1805 :help "Paste (yank) text most recently cut/copied") |
6b25ef5cc276
Fix obvious runtime errors after merge.
Karoly Lorentey <lorentey@elte.hu>
parents:
83542
diff
changeset
|
1806 nil)) |
83019 | 1807 |
83018
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1808 (setq x-initialized t)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1809 |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1810 (add-to-list 'handle-args-function-alist '(x . x-handle-args)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1811 (add-to-list 'frame-creation-function-alist '(x . x-create-frame-with-faces)) |
1465425fe2d3
Romain Francoise's and Ami Fischman's bugfixes.
Karoly Lorentey <lorentey@elte.hu>
parents:
83014
diff
changeset
|
1812 (add-to-list 'window-system-initialization-alist '(x . x-initialize-window-system)) |
53662
6f5e6bdd8cda
Enable clipboard on the menu bar and make Paste from the menu bar first
Jan Djärv <jan.h.d@swipnet.se>
parents:
52401
diff
changeset
|
1813 |
53789
7efe8089eadf
* x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents:
53745
diff
changeset
|
1814 ;; Initiate drag and drop |
7efe8089eadf
* x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents:
53745
diff
changeset
|
1815 (add-hook 'after-make-frame-functions 'x-dnd-init-frame) |
72412
ec8109b4dd1d
(x-clipboard-yank): Specify * in interactive spec.
Richard M. Stallman <rms@gnu.org>
parents:
72388
diff
changeset
|
1816 (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event) |
53789
7efe8089eadf
* x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents:
53745
diff
changeset
|
1817 |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1818 (defcustom x-gtk-stock-map |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1819 '( |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1820 ("etc/images/new" . "gtk-new") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1821 ("etc/images/open" . "gtk-open") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1822 ("etc/images/diropen" . "n:system-file-manager") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1823 ("etc/images/close" . "gtk-close") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1824 ("etc/images/save" . "gtk-save") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1825 ("etc/images/saveas" . "gtk-save-as") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1826 ("etc/images/undo" . "gtk-undo") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1827 ("etc/images/cut" . "gtk-cut") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1828 ("etc/images/copy" . "gtk-copy") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1829 ("etc/images/paste" . "gtk-paste") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1830 ("etc/images/search" . "gtk-find") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1831 ("etc/images/print" . "gtk-print") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1832 ("etc/images/preferences" . "gtk-preferences") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1833 ("etc/images/help" . "gtk-help") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1834 ("etc/images/left-arrow" . "gtk-go-back") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1835 ("etc/images/right-arrow" . "gtk-go-forward") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1836 ("etc/images/home" . "gtk-home") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1837 ("etc/images/jump-to" . "gtk-jump-to") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1838 ("etc/images/index" . "gtk-index") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1839 ("etc/images/search" . "gtk-find") |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1840 ("etc/images/exit" . "gtk-quit") |
92202
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1841 ("etc/images/cancel" . "gtk-cancel") |
93911
db9429444969
(x-gtk-stock-map): Map info to gtk-info.
Jan Djärv <jan.h.d@swipnet.se>
parents:
92524
diff
changeset
|
1842 ("etc/images/info" . "gtk-info") |
92524
edd5f5d6c928
(x-gtk-stock-map): Add bookmark_add.
Jan Djärv <jan.h.d@swipnet.se>
parents:
92202
diff
changeset
|
1843 ("etc/images/bookmark_add" . "n:bookmark_add") |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1844 ;; Used in Gnus and/or MH-E: |
92202
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1845 ("etc/images/attach" . "gtk-attach") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1846 ("etc/images/connect" . "gtk-connect") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1847 ("etc/images/contact" . "gtk-contact") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1848 ("etc/images/delete" . "gtk-delete") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1849 ("etc/images/describe" . "gtk-properties") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1850 ("etc/images/disconnect" . "gtk-disconnect") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1851 ;; ("etc/images/exit" . "gtk-exit") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1852 ("etc/images/lock-broken" . "gtk-lock_broken") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1853 ("etc/images/lock-ok" . "gtk-lock_ok") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1854 ("etc/images/lock" . "gtk-lock") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1855 ("etc/images/next-page" . "gtk-next-page") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1856 ("etc/images/refresh" . "gtk-refresh") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1857 ("etc/images/sort-ascending" . "gtk-sort-ascending") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1858 ("etc/images/sort-column-ascending" . "gtk-sort-column-ascending") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1859 ("etc/images/sort-criteria" . "gtk-sort-criteria") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1860 ("etc/images/sort-descending" . "gtk-sort-descending") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1861 ("etc/images/sort-row-ascending" . "gtk-sort-row-ascending") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1862 ("images/gnus/toggle-subscription" . "gtk-task-recurring") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1863 ("images/mail/compose" . "gtk-mail-compose") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1864 ("images/mail/copy" . "gtk-mail-copy") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1865 ("images/mail/forward" . "gtk-mail-forward") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1866 ("images/mail/inbox" . "gtk-inbox") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1867 ("images/mail/move" . "gtk-mail-move") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1868 ("images/mail/not-spam" . "gtk-not-spam") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1869 ("images/mail/outbox" . "gtk-outbox") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1870 ("images/mail/reply-all" . "gtk-mail-reply-to-all") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1871 ("images/mail/reply" . "gtk-mail-reply") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1872 ("images/mail/save-draft" . "gtk-mail-handling") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1873 ("images/mail/send" . "gtk-mail-send") |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1874 ("images/mail/spam" . "gtk-spam") |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1875 ;; No themed versions available: |
92202
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1876 ;; mail/preview (combining stock_mail and stock_zoom) |
c54b46f3dbb6
(x-gtk-stock-map): Add cancel. Remove extensions.
Jan Djärv <jan.h.d@swipnet.se>
parents:
91655
diff
changeset
|
1877 ;; mail/save (combining stock_mail, stock_save and stock_convert) |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1878 ) |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1879 "How icons for tool bars are mapped to Gtk+ stock items. |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1880 Emacs must be compiled with the Gtk+ toolkit for this to have any effect. |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1881 A value that begins with n: denotes a named icon instead of a stock icon." |
78917
565f321a1bae
(x-gtk-stock-map): Version is 22.2
Jan Djärv <jan.h.d@swipnet.se>
parents:
78724
diff
changeset
|
1882 :version "22.2" |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1883 :type '(choice (repeat (choice symbol |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1884 (cons (string :tag "Emacs icon") |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1885 (string :tag "Stock/named"))))) |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1886 :group 'x) |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1887 |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1888 (defcustom icon-map-list '(x-gtk-stock-map) |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1889 "A list of alists that maps icon file names to stock/named icons. |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1890 The alists are searched in the order they appear. The first match is used. |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1891 The keys in the alists are file names without extension and with two directory |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1892 components. For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1893 to stock item gtk-open, use: |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1894 |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1895 (\"etc/images/open\" . \"gtk-open\") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1896 |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1897 Themes also have named icons. To map to one of those, use n: before the name: |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1898 |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1899 (\"etc/images/diropen\" . \"n:system-file-manager\") |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1900 |
84984
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1901 The list elements are either the symbol name for the alist or the |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1902 alist itself. |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1903 |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1904 If you don't want stock icons, set the variable to nil." |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1905 :version "22.2" |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1906 :type '(choice (const :tag "Don't use stock icons" nil) |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1907 (repeat (choice symbol |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1908 (cons (string :tag "Emacs icon") |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1909 (string :tag "Stock/named"))))) |
8aa48ea4b5cb
(x-gtk-stock-map): Add Gnus and MH-E icons. Improve custom type.
Reiner Steib <Reiner.Steib@gmx.de>
parents:
84975
diff
changeset
|
1910 :group 'x) |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1911 |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1912 (defun x-gtk-map-stock (file) |
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1913 "Map icon with file name FILE to a Gtk+ stock name, using `x-gtk-stock-map'." |
79462
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1914 (if (stringp file) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1915 (let* ((file-sans (file-name-sans-extension file)) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1916 (key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)" file-sans) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1917 (match-string 1 file-sans))) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1918 (value)) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1919 (mapc (lambda (elem) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1920 (let ((assoc (if (symbolp elem) (symbol-value elem) elem))) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1921 (or value (setq value (assoc-string (or key file-sans) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1922 assoc))))) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1923 icon-map-list) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1924 (and value (cdr value))) |
6f9e3cd1681e
(x-gtk-map-stock): Check if FILE is a string.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78924
diff
changeset
|
1925 nil)) |
78724
1c7e03f4a7f6
(x-gtk-stock-map, icon-map-list): New variables.
Jan Djärv <jan.h.d@swipnet.se>
parents:
78226
diff
changeset
|
1926 |
83822
8404d44e8ab8
(x-menu-bar-open): Delete duplicated function from
Dan Nicolaescu <dann@ics.uci.edu>
parents:
83813
diff
changeset
|
1927 (provide 'x-win) |
71061
f652878dc617
* term/x-win.el: bind F10 to menu-bar-start if available.
Jan Djärv <jan.h.d@swipnet.se>
parents:
68648
diff
changeset
|
1928 |
66640
eb72b7c5a0b9
Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66389
diff
changeset
|
1929 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
1930 ;;; x-win.el ends here |