annotate lisp/term/x-win.el @ 71814:c019dbffab41

Remove descriptions about Metrowerks CodeWarrior.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Wed, 12 Jul 2006 08:35:45 +0000
parents 9f431e2269e4
children 956d4fe07987 b19aaf4ab0ee 8a8e69664178
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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,
68648
067115a6e738 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 66640
diff changeset
4 ;; 2005, 2006 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
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
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
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
14 ;; any later version.
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
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14122
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63191
diff changeset
23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63191
diff changeset
24 ;; Boston, MA 02110-1301, USA.
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
26 ;;; Commentary:
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 ;; X-win.el: this file is loaded from ../lisp/startup.el when it recognizes
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 ;; that X windows are to be used. Command line switches are parsed and those
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 ;; pertaining to X are processed and removed from the command line. The
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 ;; X display is opened and hooks are set for popping up the initial window.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;; 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
34 ;; which create the first window(s).
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
35
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
36 ;;; Code:
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;; These are the standard X switches from the Xt Initialize.c file of
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 ;; Release 4.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 ;; Command line Resource Manager string
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 ;; +rv *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 ;; +synchronous *synchronous
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 ;; -background *background
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ;; -bd *borderColor
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 ;; -bg *background
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 ;; -bordercolor *borderColor
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49 ;; -borderwidth .borderWidth
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 ;; -bw .borderWidth
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 ;; -display .display
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 ;; -fg *foreground
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 ;; -fn *font
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 ;; -font *font
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 ;; -foreground *foreground
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 ;; -geometry .geometry
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 ;; -iconic .iconic
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 ;; -name .name
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 ;; -reverse *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 ;; -rv *reverseVideo
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 ;; -selectionTimeout .selectionTimeout
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62 ;; -synchronous *synchronous
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; -xrm
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 ;; An alist of X options and the function which handles them. See
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66 ;; ../startup.el.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
68 (if (not (eq window-system 'x))
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
69 (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
70
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
71 (require 'frame)
467
95e458d30014 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 396
diff changeset
72 (require 'mouse)
1972
b0cde2f5164d * term/x-win.el: Require `scroll-bar', not `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents: 1954
diff changeset
73 (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
74 (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
75 (require 'select)
2808
b809a8da05cb Require menu-bar.el.
Richard M. Stallman <rms@gnu.org>
parents: 2718
diff changeset
76 (require 'menu-bar)
49288
7f09b406bc3c Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents: 49185
diff changeset
77 (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
78 (require 'x-dnd)
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
79
3373
4177a984e5c0 (x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 3287
diff changeset
80 (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
81 (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
82 (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
83 (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
84 (defvar x-session-previous-id)
3373
4177a984e5c0 (x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents: 3287
diff changeset
85
3081
63c51f1e885b Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents: 3070
diff changeset
86 (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
87
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 ;; Handler for switches of the form "-switch value" or "-switch".
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 (defun x-handle-switch (switch)
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
90 (let ((aelt (assoc switch command-line-x-option-alist)))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 (if aelt
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
92 (let ((param (nth 3 aelt))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
93 (value (nth 4 aelt)))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
94 (if value
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
95 (setq default-frame-alist
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
96 (cons (cons param value)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
97 default-frame-alist))
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
98 (setq default-frame-alist
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
99 (cons (cons param
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
100 (car x-invocation-args))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
101 default-frame-alist)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
102 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
103
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
104 ;; 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
105 (defun x-handle-numeric-switch (switch)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
106 (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
107 (if aelt
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
108 (let ((param (nth 3 aelt)))
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
109 (setq default-frame-alist
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
110 (cons (cons param
62402
a7e02ef1e3d6 Replace `string-to-int' by `string-to-number'.
Juanma Barranquero <lekktu@gmail.com>
parents: 62249
diff changeset
111 (string-to-number (car x-invocation-args)))
779
c2dbf1fe0506 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 727
diff changeset
112 default-frame-alist)
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
113 x-invocation-args
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
114 (cdr x-invocation-args))))))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115
42710
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
116 ;; Handle options that apply to initial frame only
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
117 (defun x-handle-initial-switch (switch)
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
118 (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
119 (if aelt
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
120 (let ((param (nth 3 aelt))
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
121 (value (nth 4 aelt)))
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
122 (if value
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
123 (setq initial-frame-alist
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
124 (cons (cons param value)
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
125 initial-frame-alist))
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
126 (setq initial-frame-alist
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
127 (cons (cons param
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
128 (car x-invocation-args))
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 x-invocation-args (cdr x-invocation-args)))))))
036b67c8fc3f (x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 42286
diff changeset
131
4306
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
132 ;; Make -iconic apply only to the initial frame!
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
133 (defun x-handle-iconic (switch)
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
134 (setq initial-frame-alist
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
135 (cons '(visibility . icon) initial-frame-alist)))
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
136
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
137 ;; 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
138 (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
139 (unless (consp x-invocation-args)
30246e46027e (x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents: 33917
diff changeset
140 (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
141 (setq x-command-line-resources
30246e46027e (x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents: 33917
diff changeset
142 (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
143 (car x-invocation-args)
30246e46027e (x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents: 33917
diff changeset
144 (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
145 (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
146
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 ;; Handle the geometry option
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 (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
149 (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
150 (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
151 (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
152 (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
153 (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
154 (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
155 (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
156 (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
157 '((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
158 (if height (list height))
42932
5676a5820a04 (x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents: 42710
diff changeset
159 (if width (list width)))
5676a5820a04 (x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents: 42710
diff changeset
160 initial-frame-alist
5676a5820a04 (x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents: 42710
diff changeset
161 (append initial-frame-alist
5676a5820a04 (x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents: 42710
diff changeset
162 '((user-size . t))
5676a5820a04 (x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents: 42710
diff changeset
163 (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
164 (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
165 (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
166 (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
167 (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
168 '((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
169 (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
170 (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
171 (setq x-invocation-args (cdr x-invocation-args))))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
15538
9ed106f6e1be (x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents: 15058
diff changeset
173 ;; 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
174 ;; 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
175 ;; 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
176 (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
177 (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
178 (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
179 (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
180 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
181 (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
182 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
183
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 (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
185 "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
186
71690
66dc48c8d1c8 (x-display-name): Fix typo.
Romain Francoise <romain@orebokech.com>
parents: 71679
diff changeset
187 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
188 frame parameter.")
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 (defun x-handle-display (switch)
71729
9f431e2269e4 (x-handle-display): Add doc string.
Richard M. Stallman <rms@gnu.org>
parents: 71690
diff changeset
191 "Handle -display DISPLAY option."
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 (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
193 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
194 ;; 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
195 ;; 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
196 ;; 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
197 ;; 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
198 (setenv "DISPLAY" x-display-name))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
321
4f8a6ec23155 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
200 (defun x-handle-args (args)
6698
b107e54218fe (x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 6399
diff changeset
201 "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
202 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
203 `x-invocation-args', from which the X-related things are extracted, first
321
4f8a6ec23155 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 303
diff changeset
204 the switch (e.g., \"-fg\") in the following code, and possible values
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7298
diff changeset
205 \(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
206 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
207 ;; We use ARGS to accumulate the args that we don't handle here, to return.
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
208 (setq x-invocation-args args
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
209 args nil)
16835
7584a510ad85 (x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents: 15815
diff changeset
210 (while (and x-invocation-args
7584a510ad85 (x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents: 15815
diff changeset
211 (not (equal (car x-invocation-args) "--")))
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
212 (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
213 (orig-this-switch this-switch)
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
214 completion argval aelt handler)
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
215 (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
216 ;; 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
217 ;; 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
218 (if (string-match "^--[^=]*=" this-switch)
bb1027a75918 (x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents: 9681
diff changeset
219 (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
220 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
221 ;; Complete names of long options.
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
222 (if (string-match "^--" this-switch)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
223 (progn
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
224 (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
225 (if (eq completion t)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
226 ;; Exact match for long option.
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
227 nil
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
228 (if (stringp completion)
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
229 (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
230 ;; Check for abbreviated long option.
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
231 (or elt
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
232 (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
233 (setq this-switch completion))))))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
234 (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
235 (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
236 (if handler
10027
bb1027a75918 (x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents: 9681
diff changeset
237 (if argval
bb1027a75918 (x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents: 9681
diff changeset
238 (let ((x-invocation-args
bb1027a75918 (x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents: 9681
diff changeset
239 (cons argval x-invocation-args)))
13891
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
240 (funcall handler this-switch))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
241 (funcall handler this-switch))
0e813fc58516 (x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents: 13376
diff changeset
242 (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
243 (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
244
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
245 ;; 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
246 ;; 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
247 (defun x-handle-smid (switch)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
248 (or (consp x-invocation-args)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
249 (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
250 (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
251 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
252
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
253 (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
254 "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
255 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
256 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
257 window system shutdown should be aborted.
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
258
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
259 See also `emacs-session-save'.")
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
260
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
261 (defun emacs-session-filename (session-id)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
262 "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
263 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
264 a file in the home directory."
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
265 (let ((basename (concat "session." session-id))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
266 (emacs-dir "~/.emacs.d/"))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
267 (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
268 (concat emacs-dir basename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
269 (concat "~/.emacs-" basename)))))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
270
43820
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
271 (defun emacs-session-save ()
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
272 "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
273 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
274
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
275 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
276 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
277 `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
278 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
279 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
280 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
281 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
282
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
283 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
284 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
285 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
286 (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
287 (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
288 (when (file-exists-p filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
289 (delete-file filename))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
290 (with-current-buffer buf
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
291 (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
292 ;; A return of t means cancel the shutdown.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
293 (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
294 'emacs-save-session-functions)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
295 (error t))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
296 (unless cancel-shutdown
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
297 (write-file filename))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
298 (kill-buffer buf)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
299 cancel-shutdown))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
300
43866
9ec4ee6f4529 (emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43820
diff changeset
301 (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
302 "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
303 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
304 exists."
43866
9ec4ee6f4529 (emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents: 43820
diff changeset
305 (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
306 (when (file-exists-p filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
307 (load-file filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
308 (delete-file filename)
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
309 (message "Restored session data"))))
41972a678f62 (x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents: 42932
diff changeset
310
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
311
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
312
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 ;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them.
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 (defconst x-pointer-X-cursor 0)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (defconst x-pointer-arrow 2)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 (defconst x-pointer-based-arrow-down 4)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 (defconst x-pointer-based-arrow-up 6)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 (defconst x-pointer-boat 8)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 (defconst x-pointer-bogosity 10)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (defconst x-pointer-bottom-left-corner 12)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 (defconst x-pointer-bottom-right-corner 14)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 (defconst x-pointer-bottom-side 16)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (defconst x-pointer-bottom-tee 18)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (defconst x-pointer-box-spiral 20)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (defconst x-pointer-center-ptr 22)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (defconst x-pointer-circle 24)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 (defconst x-pointer-clock 26)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 (defconst x-pointer-coffee-mug 28)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 (defconst x-pointer-cross 30)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334 (defconst x-pointer-cross-reverse 32)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 (defconst x-pointer-crosshair 34)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 (defconst x-pointer-diamond-cross 36)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (defconst x-pointer-dot 38)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (defconst x-pointer-dotbox 40)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339 (defconst x-pointer-double-arrow 42)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (defconst x-pointer-draft-large 44)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 (defconst x-pointer-draft-small 46)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 (defconst x-pointer-draped-box 48)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 (defconst x-pointer-exchange 50)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 (defconst x-pointer-fleur 52)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 (defconst x-pointer-gobbler 54)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 (defconst x-pointer-gumby 56)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 (defconst x-pointer-hand1 58)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (defconst x-pointer-hand2 60)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349 (defconst x-pointer-heart 62)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 (defconst x-pointer-icon 64)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351 (defconst x-pointer-iron-cross 66)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 (defconst x-pointer-left-ptr 68)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 (defconst x-pointer-left-side 70)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 (defconst x-pointer-left-tee 72)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 (defconst x-pointer-leftbutton 74)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 (defconst x-pointer-ll-angle 76)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 (defconst x-pointer-lr-angle 78)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 (defconst x-pointer-man 80)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 (defconst x-pointer-middlebutton 82)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 (defconst x-pointer-mouse 84)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 (defconst x-pointer-pencil 86)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 (defconst x-pointer-pirate 88)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 (defconst x-pointer-plus 90)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 (defconst x-pointer-question-arrow 92)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 (defconst x-pointer-right-ptr 94)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 (defconst x-pointer-right-side 96)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 (defconst x-pointer-right-tee 98)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 (defconst x-pointer-rightbutton 100)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (defconst x-pointer-rtl-logo 102)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 (defconst x-pointer-sailboat 104)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 (defconst x-pointer-sb-down-arrow 106)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 (defconst x-pointer-sb-h-double-arrow 108)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373 (defconst x-pointer-sb-left-arrow 110)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 (defconst x-pointer-sb-right-arrow 112)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 (defconst x-pointer-sb-up-arrow 114)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 (defconst x-pointer-sb-v-double-arrow 116)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (defconst x-pointer-shuttle 118)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 (defconst x-pointer-sizing 120)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 (defconst x-pointer-spider 122)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 (defconst x-pointer-spraycan 124)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 (defconst x-pointer-star 126)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (defconst x-pointer-target 128)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383 (defconst x-pointer-tcross 130)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 (defconst x-pointer-top-left-arrow 132)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385 (defconst x-pointer-top-left-corner 134)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386 (defconst x-pointer-top-right-corner 136)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 (defconst x-pointer-top-side 138)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 (defconst x-pointer-top-tee 140)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
389 (defconst x-pointer-trek 142)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 (defconst x-pointer-ul-angle 144)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 (defconst x-pointer-umbrella 146)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 (defconst x-pointer-ur-angle 148)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 (defconst x-pointer-watch 150)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 (defconst x-pointer-xterm 152)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 ;; Available colors
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 ;;
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
400 (defvar x-colors '("LightGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
401 "light green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
402 "DarkRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
403 "dark red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
404 "DarkMagenta"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
405 "dark magenta"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
406 "DarkCyan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
407 "dark cyan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
408 "DarkBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
409 "dark blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
410 "DarkGray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
411 "dark gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
412 "DarkGrey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
413 "dark grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
414 "grey100"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
415 "gray100"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
416 "grey99"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
417 "gray99"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
418 "grey98"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
419 "gray98"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
420 "grey97"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
421 "gray97"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
422 "grey96"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
423 "gray96"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
424 "grey95"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
425 "gray95"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
426 "grey94"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
427 "gray94"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
428 "grey93"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
429 "gray93"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
430 "grey92"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
431 "gray92"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
432 "grey91"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
433 "gray91"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
434 "grey90"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
435 "gray90"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
436 "grey89"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
437 "gray89"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
438 "grey88"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
439 "gray88"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
440 "grey87"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
441 "gray87"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
442 "grey86"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
443 "gray86"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
444 "grey85"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
445 "gray85"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
446 "grey84"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
447 "gray84"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
448 "grey83"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
449 "gray83"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
450 "grey82"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
451 "gray82"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
452 "grey81"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
453 "gray81"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
454 "grey80"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
455 "gray80"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
456 "grey79"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
457 "gray79"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
458 "grey78"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
459 "gray78"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
460 "grey77"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
461 "gray77"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
462 "grey76"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
463 "gray76"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
464 "grey75"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
465 "gray75"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
466 "grey74"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
467 "gray74"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
468 "grey73"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
469 "gray73"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
470 "grey72"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
471 "gray72"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
472 "grey71"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
473 "gray71"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
474 "grey70"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
475 "gray70"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
476 "grey69"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
477 "gray69"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
478 "grey68"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
479 "gray68"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
480 "grey67"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
481 "gray67"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
482 "grey66"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
483 "gray66"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
484 "grey65"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
485 "gray65"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
486 "grey64"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
487 "gray64"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
488 "grey63"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
489 "gray63"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
490 "grey62"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
491 "gray62"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
492 "grey61"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
493 "gray61"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
494 "grey60"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
495 "gray60"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
496 "grey59"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
497 "gray59"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
498 "grey58"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
499 "gray58"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
500 "grey57"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
501 "gray57"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
502 "grey56"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
503 "gray56"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
504 "grey55"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
505 "gray55"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
506 "grey54"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
507 "gray54"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
508 "grey53"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
509 "gray53"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
510 "grey52"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
511 "gray52"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
512 "grey51"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
513 "gray51"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
514 "grey50"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
515 "gray50"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
516 "grey49"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
517 "gray49"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
518 "grey48"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
519 "gray48"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
520 "grey47"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
521 "gray47"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
522 "grey46"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
523 "gray46"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
524 "grey45"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
525 "gray45"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
526 "grey44"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
527 "gray44"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
528 "grey43"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
529 "gray43"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
530 "grey42"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
531 "gray42"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
532 "grey41"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
533 "gray41"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
534 "grey40"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
535 "gray40"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
536 "grey39"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
537 "gray39"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
538 "grey38"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
539 "gray38"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
540 "grey37"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
541 "gray37"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
542 "grey36"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
543 "gray36"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
544 "grey35"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
545 "gray35"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
546 "grey34"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
547 "gray34"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
548 "grey33"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
549 "gray33"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
550 "grey32"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
551 "gray32"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
552 "grey31"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
553 "gray31"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
554 "grey30"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
555 "gray30"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
556 "grey29"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
557 "gray29"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
558 "grey28"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
559 "gray28"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
560 "grey27"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
561 "gray27"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
562 "grey26"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
563 "gray26"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
564 "grey25"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
565 "gray25"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
566 "grey24"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
567 "gray24"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
568 "grey23"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
569 "gray23"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
570 "grey22"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
571 "gray22"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
572 "grey21"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
573 "gray21"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
574 "grey20"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
575 "gray20"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
576 "grey19"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
577 "gray19"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
578 "grey18"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
579 "gray18"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
580 "grey17"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
581 "gray17"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
582 "grey16"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
583 "gray16"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
584 "grey15"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
585 "gray15"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
586 "grey14"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
587 "gray14"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
588 "grey13"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
589 "gray13"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
590 "grey12"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
591 "gray12"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
592 "grey11"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
593 "gray11"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
594 "grey10"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
595 "gray10"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
596 "grey9"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
597 "gray9"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
598 "grey8"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
599 "gray8"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
600 "grey7"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
601 "gray7"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
602 "grey6"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
603 "gray6"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
604 "grey5"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
605 "gray5"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
606 "grey4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
607 "gray4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
608 "grey3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
609 "gray3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
610 "grey2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
611 "gray2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
612 "grey1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
613 "gray1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
614 "grey0"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
615 "gray0"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
616 "thistle4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
617 "thistle3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
618 "thistle2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
619 "thistle1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
620 "MediumPurple4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
621 "MediumPurple3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
622 "MediumPurple2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
623 "MediumPurple1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
624 "purple4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
625 "purple3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
626 "purple2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
627 "purple1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
628 "DarkOrchid4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
629 "DarkOrchid3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
630 "DarkOrchid2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
631 "DarkOrchid1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
632 "MediumOrchid4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
633 "MediumOrchid3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
634 "MediumOrchid2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
635 "MediumOrchid1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
636 "plum4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
637 "plum3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
638 "plum2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
639 "plum1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
640 "orchid4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
641 "orchid3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
642 "orchid2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
643 "orchid1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
644 "magenta4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
645 "magenta3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
646 "magenta2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
647 "magenta1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
648 "VioletRed4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
649 "VioletRed3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
650 "VioletRed2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
651 "VioletRed1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
652 "maroon4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
653 "maroon3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
654 "maroon2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
655 "maroon1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
656 "PaleVioletRed4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
657 "PaleVioletRed3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
658 "PaleVioletRed2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
659 "PaleVioletRed1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
660 "LightPink4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
661 "LightPink3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
662 "LightPink2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
663 "LightPink1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
664 "pink4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
665 "pink3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
666 "pink2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
667 "pink1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
668 "HotPink4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
669 "HotPink3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
670 "HotPink2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
671 "HotPink1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
672 "DeepPink4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
673 "DeepPink3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
674 "DeepPink2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
675 "DeepPink1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
676 "red4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
677 "red3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
678 "red2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
679 "red1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
680 "OrangeRed4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
681 "OrangeRed3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
682 "OrangeRed2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
683 "OrangeRed1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
684 "tomato4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
685 "tomato3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
686 "tomato2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
687 "tomato1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
688 "coral4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
689 "coral3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
690 "coral2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
691 "coral1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
692 "DarkOrange4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
693 "DarkOrange3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
694 "DarkOrange2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
695 "DarkOrange1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
696 "orange4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
697 "orange3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
698 "orange2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
699 "orange1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
700 "LightSalmon4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
701 "LightSalmon3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
702 "LightSalmon2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
703 "LightSalmon1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
704 "salmon4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
705 "salmon3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
706 "salmon2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
707 "salmon1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
708 "brown4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
709 "brown3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
710 "brown2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
711 "brown1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
712 "firebrick4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
713 "firebrick3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
714 "firebrick2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
715 "firebrick1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
716 "chocolate4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
717 "chocolate3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
718 "chocolate2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
719 "chocolate1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
720 "tan4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
721 "tan3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
722 "tan2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
723 "tan1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
724 "wheat4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
725 "wheat3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
726 "wheat2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
727 "wheat1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
728 "burlywood4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
729 "burlywood3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
730 "burlywood2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
731 "burlywood1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
732 "sienna4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
733 "sienna3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
734 "sienna2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
735 "sienna1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
736 "IndianRed4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
737 "IndianRed3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
738 "IndianRed2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
739 "IndianRed1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
740 "RosyBrown4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
741 "RosyBrown3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
742 "RosyBrown2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
743 "RosyBrown1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
744 "DarkGoldenrod4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
745 "DarkGoldenrod3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
746 "DarkGoldenrod2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
747 "DarkGoldenrod1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
748 "goldenrod4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
749 "goldenrod3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
750 "goldenrod2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
751 "goldenrod1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
752 "gold4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
753 "gold3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
754 "gold2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
755 "gold1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
756 "yellow4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
757 "yellow3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
758 "yellow2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
759 "yellow1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
760 "LightYellow4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
761 "LightYellow3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
762 "LightYellow2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
763 "LightYellow1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
764 "LightGoldenrod4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
765 "LightGoldenrod3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
766 "LightGoldenrod2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
767 "LightGoldenrod1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
768 "khaki4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
769 "khaki3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
770 "khaki2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
771 "khaki1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
772 "DarkOliveGreen4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
773 "DarkOliveGreen3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
774 "DarkOliveGreen2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
775 "DarkOliveGreen1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
776 "OliveDrab4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
777 "OliveDrab3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
778 "OliveDrab2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
779 "OliveDrab1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
780 "chartreuse4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
781 "chartreuse3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
782 "chartreuse2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
783 "chartreuse1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
784 "green4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
785 "green3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
786 "green2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
787 "green1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
788 "SpringGreen4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
789 "SpringGreen3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
790 "SpringGreen2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
791 "SpringGreen1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
792 "PaleGreen4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
793 "PaleGreen3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
794 "PaleGreen2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
795 "PaleGreen1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
796 "SeaGreen4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
797 "SeaGreen3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
798 "SeaGreen2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
799 "SeaGreen1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
800 "DarkSeaGreen4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
801 "DarkSeaGreen3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
802 "DarkSeaGreen2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
803 "DarkSeaGreen1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
804 "aquamarine4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
805 "aquamarine3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
806 "aquamarine2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
807 "aquamarine1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
808 "DarkSlateGray4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
809 "DarkSlateGray3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
810 "DarkSlateGray2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
811 "DarkSlateGray1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
812 "cyan4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
813 "cyan3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
814 "cyan2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
815 "cyan1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
816 "turquoise4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
817 "turquoise3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
818 "turquoise2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
819 "turquoise1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
820 "CadetBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
821 "CadetBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
822 "CadetBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
823 "CadetBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
824 "PaleTurquoise4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
825 "PaleTurquoise3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
826 "PaleTurquoise2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
827 "PaleTurquoise1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
828 "LightCyan4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
829 "LightCyan3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
830 "LightCyan2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
831 "LightCyan1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
832 "LightBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
833 "LightBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
834 "LightBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
835 "LightBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
836 "LightSteelBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
837 "LightSteelBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
838 "LightSteelBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
839 "LightSteelBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
840 "SlateGray4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
841 "SlateGray3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
842 "SlateGray2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
843 "SlateGray1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
844 "LightSkyBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
845 "LightSkyBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
846 "LightSkyBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
847 "LightSkyBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
848 "SkyBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
849 "SkyBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
850 "SkyBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
851 "SkyBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
852 "DeepSkyBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
853 "DeepSkyBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
854 "DeepSkyBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
855 "DeepSkyBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
856 "SteelBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
857 "SteelBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
858 "SteelBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
859 "SteelBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
860 "DodgerBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
861 "DodgerBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
862 "DodgerBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
863 "DodgerBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
864 "blue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
865 "blue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
866 "blue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
867 "blue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
868 "RoyalBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
869 "RoyalBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
870 "RoyalBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
871 "RoyalBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
872 "SlateBlue4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
873 "SlateBlue3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
874 "SlateBlue2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
875 "SlateBlue1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
876 "azure4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
877 "azure3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
878 "azure2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
879 "azure1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
880 "MistyRose4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
881 "MistyRose3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
882 "MistyRose2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
883 "MistyRose1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
884 "LavenderBlush4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
885 "LavenderBlush3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
886 "LavenderBlush2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
887 "LavenderBlush1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
888 "honeydew4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
889 "honeydew3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
890 "honeydew2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
891 "honeydew1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
892 "ivory4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
893 "ivory3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
894 "ivory2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
895 "ivory1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
896 "cornsilk4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
897 "cornsilk3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
898 "cornsilk2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
899 "cornsilk1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
900 "LemonChiffon4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
901 "LemonChiffon3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
902 "LemonChiffon2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
903 "LemonChiffon1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
904 "NavajoWhite4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
905 "NavajoWhite3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
906 "NavajoWhite2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
907 "NavajoWhite1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
908 "PeachPuff4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
909 "PeachPuff3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
910 "PeachPuff2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
911 "PeachPuff1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
912 "bisque4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
913 "bisque3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
914 "bisque2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
915 "bisque1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
916 "AntiqueWhite4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
917 "AntiqueWhite3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
918 "AntiqueWhite2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
919 "AntiqueWhite1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
920 "seashell4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
921 "seashell3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
922 "seashell2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
923 "seashell1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
924 "snow4"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
925 "snow3"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
926 "snow2"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
927 "snow1"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
928 "thistle"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
929 "MediumPurple"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
930 "medium purple"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
931 "purple"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
932 "BlueViolet"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
933 "blue violet"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
934 "DarkViolet"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
935 "dark violet"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
936 "DarkOrchid"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
937 "dark orchid"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
938 "MediumOrchid"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
939 "medium orchid"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
940 "orchid"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
941 "plum"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
942 "violet"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
943 "magenta"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
944 "VioletRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
945 "violet red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
946 "MediumVioletRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
947 "medium violet red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
948 "maroon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
949 "PaleVioletRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
950 "pale violet red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
951 "LightPink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
952 "light pink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
953 "pink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
954 "DeepPink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
955 "deep pink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
956 "HotPink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
957 "hot pink"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
958 "red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
959 "OrangeRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
960 "orange red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
961 "tomato"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
962 "LightCoral"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
963 "light coral"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
964 "coral"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
965 "DarkOrange"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
966 "dark orange"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
967 "orange"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
968 "LightSalmon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
969 "light salmon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
970 "salmon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
971 "DarkSalmon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
972 "dark salmon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
973 "brown"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 "firebrick"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
975 "chocolate"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
976 "tan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
977 "SandyBrown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
978 "sandy brown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
979 "wheat"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
980 "beige"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
981 "burlywood"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
982 "peru"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
983 "sienna"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
984 "SaddleBrown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
985 "saddle brown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
986 "IndianRed"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
987 "indian red"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
988 "RosyBrown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
989 "rosy brown"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
990 "DarkGoldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
991 "dark goldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
992 "goldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
993 "LightGoldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
994 "light goldenrod"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 "gold"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
996 "yellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
997 "LightYellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
998 "light yellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
999 "LightGoldenrodYellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1000 "light goldenrod yellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1001 "PaleGoldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1002 "pale goldenrod"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1003 "khaki"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1004 "DarkKhaki"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1005 "dark khaki"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1006 "OliveDrab"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1007 "olive drab"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1008 "ForestGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1009 "forest green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1010 "YellowGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1011 "yellow green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1012 "LimeGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1013 "lime green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1014 "GreenYellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1015 "green yellow"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1016 "MediumSpringGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1017 "medium spring green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1018 "chartreuse"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 "green"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1020 "LawnGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1021 "lawn green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1022 "SpringGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1023 "spring green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1024 "PaleGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1025 "pale green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1026 "LightSeaGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1027 "light sea green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1028 "MediumSeaGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1029 "medium sea green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1030 "SeaGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1031 "sea green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1032 "DarkSeaGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1033 "dark sea green"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 "DarkOliveGreen"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1035 "dark olive green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1036 "DarkGreen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1037 "dark green"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1038 "aquamarine"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1039 "MediumAquamarine"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1040 "medium aquamarine"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1041 "CadetBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1042 "cadet blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1043 "LightCyan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1044 "light cyan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1045 "cyan"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1046 "turquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1047 "MediumTurquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1048 "medium turquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1049 "DarkTurquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1050 "dark turquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1051 "PaleTurquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1052 "pale turquoise"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1053 "PowderBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1054 "powder blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1055 "LightBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1056 "light blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1057 "LightSteelBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1058 "light steel blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1059 "SteelBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1060 "steel blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1061 "LightSkyBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1062 "light sky blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1063 "SkyBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1064 "sky blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1065 "DeepSkyBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1066 "deep sky blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1067 "DodgerBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1068 "dodger blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1069 "blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1070 "RoyalBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1071 "royal blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1072 "MediumBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1073 "medium blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1074 "LightSlateBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1075 "light slate blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1076 "MediumSlateBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1077 "medium slate blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1078 "SlateBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1079 "slate blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1080 "DarkSlateBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1081 "dark slate blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1082 "CornflowerBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1083 "cornflower blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1084 "NavyBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1085 "navy blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1086 "navy"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1087 "MidnightBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1088 "midnight blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1089 "LightGray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1090 "light gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1091 "LightGrey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1092 "light grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1093 "grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1094 "gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1095 "LightSlateGrey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1096 "light slate grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1097 "LightSlateGray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1098 "light slate gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1099 "SlateGrey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1100 "slate grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1101 "SlateGray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1102 "slate gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1103 "DimGrey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1104 "dim grey"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1105 "DimGray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1106 "dim gray"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1107 "DarkSlateGrey"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1108 "dark slate grey"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1109 "DarkSlateGray"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1110 "dark slate gray"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1111 "black"
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1112 "white"
29555
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1113 "MistyRose"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1114 "misty rose"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1115 "LavenderBlush"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1116 "lavender blush"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1117 "lavender"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1118 "AliceBlue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1119 "alice blue"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1120 "azure"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1121 "MintCream"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1122 "mint cream"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1123 "honeydew"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1124 "seashell"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1125 "LemonChiffon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1126 "lemon chiffon"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1127 "ivory"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1128 "cornsilk"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1129 "moccasin"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1130 "NavajoWhite"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1131 "navajo white"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1132 "PeachPuff"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1133 "peach puff"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1134 "bisque"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1135 "BlanchedAlmond"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1136 "blanched almond"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1137 "PapayaWhip"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1138 "papaya whip"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1139 "AntiqueWhite"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1140 "antique white"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1141 "linen"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1142 "OldLace"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1143 "old lace"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1144 "FloralWhite"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1145 "floral white"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1146 "gainsboro"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1147 "WhiteSmoke"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1148 "white smoke"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1149 "GhostWhite"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1150 "ghost white"
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1151 "snow")
ec45256eb961 (x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents: 28217
diff changeset
1152 "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
1153 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154
26736
a0674327c167 Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents: 23903
diff changeset
1155 (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
1156 "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
1157 (or frame (setq frame (selected-frame)))
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1158 (let ((all-colors x-colors)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1159 (this-color nil)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1160 (defined-colors nil))
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 (while all-colors
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1162 (setq this-color (car all-colors)
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1163 all-colors (cdr all-colors))
27101
a5791b2ee668 (xw-defined-colors): Call color-supported-p,
Eli Zaretskii <eliz@gnu.org>
parents: 26736
diff changeset
1164 (and (color-supported-p this-color frame t)
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1165 (setq defined-colors (cons this-color defined-colors))))
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1166 defined-colors))
396
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
1167
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
1168 ;;;; Function keys
d0eb77a4d8f7 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 385
diff changeset
1169
4313
87472f1eb031 (iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents: 4306
diff changeset
1170 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
87472f1eb031 (iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents: 4306
diff changeset
1171 global-map)
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
1172
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1173 ;; Map certain keypad keys into ASCII characters
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1174 ;; that people usually expect.
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1175 (define-key function-key-map [backspace] [127])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1176 (define-key function-key-map [delete] [127])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1177 (define-key function-key-map [tab] [?\t])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1178 (define-key function-key-map [linefeed] [?\n])
12970
b5262e218fa8 (function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents: 12556
diff changeset
1179 (define-key function-key-map [clear] [?\C-l])
b5262e218fa8 (function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents: 12556
diff changeset
1180 (define-key function-key-map [return] [?\C-m])
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1181 (define-key function-key-map [escape] [?\e])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1182 (define-key function-key-map [M-backspace] [?\M-\d])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1183 (define-key function-key-map [M-delete] [?\M-\d])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1184 (define-key function-key-map [M-tab] [?\M-\t])
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1185 (define-key function-key-map [M-linefeed] [?\M-\n])
12970
b5262e218fa8 (function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents: 12556
diff changeset
1186 (define-key function-key-map [M-clear] [?\M-\C-l])
b5262e218fa8 (function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents: 12556
diff changeset
1187 (define-key function-key-map [M-return] [?\M-\C-m])
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1188 (define-key function-key-map [M-escape] [?\M-\e])
17244
6d46f493d819 (function-key-map): Define iso-lefttab.
Richard M. Stallman <rms@gnu.org>
parents: 17169
diff changeset
1189 (define-key function-key-map [iso-lefttab] [backtab])
47198
3189c7c8ef18 (function-key-map): Define S-iso-lefttab.
Richard M. Stallman <rms@gnu.org>
parents: 45318
diff changeset
1190 (define-key function-key-map [S-iso-lefttab] [backtab])
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1191
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1192 ;; These tell read-char how to convert
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1193 ;; these special chars to ASCII.
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1194 (put 'backspace 'ascii-character 127)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1195 (put 'delete 'ascii-character 127)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1196 (put 'tab 'ascii-character ?\t)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1197 (put 'linefeed 'ascii-character ?\n)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1198 (put 'clear 'ascii-character 12)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1199 (put 'return 'ascii-character 13)
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
1200 (put 'escape 'ascii-character ?\e)
5515
920b55d2057b (vendor-key-syms): Set this variable.
Richard M. Stallman <rms@gnu.org>
parents: 4314
diff changeset
1201
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1202
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1203 ;;;; Keysyms
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1204
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1205 (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
1206 "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
1207 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
1208 as returned by `x-server-vendor'."
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1209 ;; Fixme: Drop Apollo now?
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1210 (cond ((string-equal vendor "Apollo Computer Inc.")
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1211 '((65280 . linedel)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1212 (65281 . chardel)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1213 (65282 . copy)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1214 (65283 . cut)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1215 (65284 . paste)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1216 (65285 . move)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1217 (65286 . grow)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1218 (65287 . cmd)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1219 (65288 . shell)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1220 (65289 . leftbar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1221 (65290 . rightbar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1222 (65291 . leftbox)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1223 (65292 . rightbox)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1224 (65293 . upbox)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1225 (65294 . downbox)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1226 (65295 . pop)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1227 (65296 . read)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1228 (65297 . edit)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1229 (65298 . save)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1230 (65299 . exit)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1231 (65300 . repeat)))
11902
fab32f80adf5 (vendor-specific-keysyms): Add second spelling for HP.
Karl Heuer <kwzh@gnu.org>
parents: 11821
diff changeset
1232 ((or (string-equal vendor "Hewlett-Packard Incorporated")
fab32f80adf5 (vendor-specific-keysyms): Add second spelling for HP.
Karl Heuer <kwzh@gnu.org>
parents: 11821
diff changeset
1233 (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
1234 '(( 168 . mute-acute)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1235 ( 169 . mute-grave)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1236 ( 170 . mute-asciicircum)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1237 ( 171 . mute-diaeresis)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1238 ( 172 . mute-asciitilde)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1239 ( 175 . lira)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1240 ( 190 . guilder)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1241 ( 252 . block)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1242 ( 256 . longminus)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1243 (65388 . reset)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1244 (65389 . system)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1245 (65390 . user)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1246 (65391 . clearline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1247 (65392 . insertline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1248 (65393 . deleteline)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1249 (65394 . insertchar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1250 (65395 . deletechar)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1251 (65396 . backtab)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1252 (65397 . kp-backtab)))
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1253 ;; 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
1254 ((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
1255 (string-equal vendor "X Consortium"))
12556
fb1b760f6636 (vendor-specific-keysyms):
Karl Heuer <kwzh@gnu.org>
parents: 12443
diff changeset
1256 '((392976 . f36)
fb1b760f6636 (vendor-specific-keysyms):
Karl Heuer <kwzh@gnu.org>
parents: 12443
diff changeset
1257 (392977 . f37)
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1258 (393056 . req)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1259 ;; These are for Sun under X11R6
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1260 (393072 . props)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1261 (393073 . front)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1262 (393074 . copy)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1263 (393075 . open)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1264 (393076 . paste)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1265 (393077 . cut)))
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1266 (t
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1267 ;; 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
1268 '((65280 . remove)))))
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
1269
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1270 (let ((i 160))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1271 (while (< i 256)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1272 (puthash i (make-char 'latin-iso8859-1 i) x-keysym-table)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1273 (setq i (1+ i))))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1274
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1275 ;; 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
1276 ;; appendix to the X protocol definition.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1277 (dolist
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1278 (pair
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1279 '(
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1280 ;; Latin-2
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1281 (#x1a1 . ?,B!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1282 (#x1a2 . ?,B"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1283 (#x1a3 . ?,B#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1284 (#x1a5 . ?,B%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1285 (#x1a6 . ?,B&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1286 (#x1a9 . ?,B)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1287 (#x1aa . ?,B*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1288 (#x1ab . ?,B+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1289 (#x1ac . ?,B,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1290 (#x1ae . ?,B.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1291 (#x1af . ?,B/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1292 (#x1b1 . ?,B1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1293 (#x1b2 . ?,B2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1294 (#x1b3 . ?,B3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1295 (#x1b5 . ?,B5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1296 (#x1b6 . ?,B6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1297 (#x1b7 . ?,B7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1298 (#x1b9 . ?,B9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1299 (#x1ba . ?,B:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1300 (#x1bb . ?,B;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1301 (#x1bc . ?,B<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1302 (#x1bd . ?,B=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1303 (#x1be . ?,B>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1304 (#x1bf . ?,B?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1305 (#x1c0 . ?,B@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1306 (#x1c3 . ?,BC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1307 (#x1c5 . ?,BE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1308 (#x1c6 . ?,BF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1309 (#x1c8 . ?,BH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1310 (#x1ca . ?,BJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1311 (#x1cc . ?,BL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1312 (#x1cf . ?,BO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1313 (#x1d0 . ?,BP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1314 (#x1d1 . ?,BQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1315 (#x1d2 . ?,BR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1316 (#x1d5 . ?,BU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1317 (#x1d8 . ?,BX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1318 (#x1d9 . ?,BY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1319 (#x1db . ?,B[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1320 (#x1de . ?,B^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1321 (#x1e0 . ?,B`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1322 (#x1e3 . ?,Bc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1323 (#x1e5 . ?,Be(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1324 (#x1e6 . ?,Bf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1325 (#x1e8 . ?,Bh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1326 (#x1ea . ?,Bj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1327 (#x1ec . ?,Bl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1328 (#x1ef . ?,Bo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1329 (#x1f0 . ?,Bp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1330 (#x1f1 . ?,Bq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1331 (#x1f2 . ?,Br(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1332 (#x1f5 . ?,Bu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1333 (#x1f8 . ?,Bx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1334 (#x1f9 . ?,By(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1335 (#x1fb . ?,B{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1336 (#x1fe . ?,B~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1337 (#x1ff . ?,B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1338 ;; Latin-3
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1339 (#x2a1 . ?,C!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1340 (#x2a6 . ?,C&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1341 (#x2a9 . ?,C)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1342 (#x2ab . ?,C+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1343 (#x2ac . ?,C,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1344 (#x2b1 . ?,C1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1345 (#x2b6 . ?,C6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1346 (#x2b9 . ?,C9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1347 (#x2bb . ?,C;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1348 (#x2bc . ?,C<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1349 (#x2c5 . ?,CE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1350 (#x2c6 . ?,CF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1351 (#x2d5 . ?,CU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1352 (#x2d8 . ?,CX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1353 (#x2dd . ?,C](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1354 (#x2de . ?,C^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1355 (#x2e5 . ?,Ce(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1356 (#x2e6 . ?,Cf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1357 (#x2f5 . ?,Cu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1358 (#x2f8 . ?,Cx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1359 (#x2fd . ?,C}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1360 (#x2fe . ?,C~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1361 ;; Latin-4
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1362 (#x3a2 . ?,D"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1363 (#x3a3 . ?,D#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1364 (#x3a5 . ?,D%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1365 (#x3a6 . ?,D&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1366 (#x3aa . ?,D*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1367 (#x3ab . ?,D+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1368 (#x3ac . ?,D,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1369 (#x3b3 . ?,D3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1370 (#x3b5 . ?,D5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1371 (#x3b6 . ?,D6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1372 (#x3ba . ?,D:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1373 (#x3bb . ?,D;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1374 (#x3bc . ?,D<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1375 (#x3bd . ?,D=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1376 (#x3bf . ?,D?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1377 (#x3c0 . ?,D@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1378 (#x3c7 . ?,DG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1379 (#x3cc . ?,DL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1380 (#x3cf . ?,DO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1381 (#x3d1 . ?,DQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1382 (#x3d2 . ?,DR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1383 (#x3d3 . ?,DS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1384 (#x3d9 . ?,DY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1385 (#x3dd . ?,D](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1386 (#x3de . ?,D^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1387 (#x3e0 . ?,D`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1388 (#x3e7 . ?,Dg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1389 (#x3ec . ?,Dl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1390 (#x3ef . ?,Do(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1391 (#x3f1 . ?,Dq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1392 (#x3f2 . ?,Dr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1393 (#x3f3 . ?,Ds(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1394 (#x3f9 . ?,Dy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1395 (#x3fd . ?,D}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1396 (#x3fe . ?,D~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1397 ;; Kana: Fixme: needs conversion to Japanese charset -- seems
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1398 ;; to require jisx0213, for which the Unicode translation
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1399 ;; isn't clear.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1400 (#x47e . ?$,1s>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1401 (#x4a1 . ?$,2=B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1402 (#x4a2 . ?\$,2=L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1403 (#x4a3 . ?\$,2=M(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1404 (#x4a4 . ?$,2=A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1405 (#x4a5 . ?$,2?{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1406 (#x4a6 . ?$,2?r(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1407 (#x4a7 . ?$,2?!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1408 (#x4a8 . ?$,2?#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1409 (#x4a9 . ?$,2?%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1410 (#x4aa . ?$,2?'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1411 (#x4ab . ?$,2?)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1412 (#x4ac . ?$,2?c(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1413 (#x4ad . ?$,2?e(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1414 (#x4ae . ?$,2?g(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1415 (#x4af . ?$,2?C(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1416 (#x4b0 . ?$,2?|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1417 (#x4b1 . ?$,2?"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1418 (#x4b2 . ?$,2?$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1419 (#x4b3 . ?$,2?&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1420 (#x4b4 . ?$,2?((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1421 (#x4b5 . ?$,2?*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1422 (#x4b6 . ?$,2?+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1423 (#x4b7 . ?$,2?-(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1424 (#x4b8 . ?$,2?/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1425 (#x4b9 . ?$,2?1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1426 (#x4ba . ?$,2?3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1427 (#x4bb . ?$,2?5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1428 (#x4bc . ?$,2?7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1429 (#x4bd . ?$,2?9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1430 (#x4be . ?$,2?;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1431 (#x4bf . ?$,2?=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1432 (#x4c0 . ?$,2??(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1433 (#x4c1 . ?$,2?A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1434 (#x4c2 . ?$,2?D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1435 (#x4c3 . ?$,2?F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1436 (#x4c4 . ?$,2?H(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1437 (#x4c5 . ?$,2?J(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1438 (#x4c6 . ?$,2?K(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1439 (#x4c7 . ?$,2?L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1440 (#x4c8 . ?$,2?M(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1441 (#x4c9 . ?$,2?N(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1442 (#x4ca . ?$,2?O(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1443 (#x4cb . ?$,2?R(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1444 (#x4cc . ?$,2?U(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1445 (#x4cd . ?$,2?X(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1446 (#x4ce . ?$,2?[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1447 (#x4cf . ?$,2?^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1448 (#x4d0 . ?$,2?_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1449 (#x4d1 . ?$,2?`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1450 (#x4d2 . ?$,2?a(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1451 (#x4d3 . ?$,2?b(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1452 (#x4d4 . ?$,2?d(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1453 (#x4d5 . ?$,2?f(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1454 (#x4d6 . ?$,2?h(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1455 (#x4d7 . ?$,2?i(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1456 (#x4d8 . ?$,2?j(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1457 (#x4d9 . ?$,2?k(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1458 (#x4da . ?$,2?l(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1459 (#x4db . ?$,2?m(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1460 (#x4dc . ?$,2?o(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1461 (#x4dd . ?$,2?s(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1462 (#x4de . ?$,2>{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1463 (#x4df . ?$,2>|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1464 ;; Arabic
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1465 (#x5ac . ?,G,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1466 (#x5bb . ?,G;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1467 (#x5bf . ?,G?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1468 (#x5c1 . ?,GA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1469 (#x5c2 . ?,GB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1470 (#x5c3 . ?,GC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1471 (#x5c4 . ?,GD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1472 (#x5c5 . ?,GE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1473 (#x5c6 . ?,GF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1474 (#x5c7 . ?,GG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1475 (#x5c8 . ?,GH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1476 (#x5c9 . ?,GI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1477 (#x5ca . ?,GJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1478 (#x5cb . ?,GK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1479 (#x5cc . ?,GL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1480 (#x5cd . ?,GM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1481 (#x5ce . ?,GN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1482 (#x5cf . ?,GO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1483 (#x5d0 . ?,GP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1484 (#x5d1 . ?,GQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1485 (#x5d2 . ?,GR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1486 (#x5d3 . ?,GS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1487 (#x5d4 . ?,GT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1488 (#x5d5 . ?,GU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1489 (#x5d6 . ?,GV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1490 (#x5d7 . ?,GW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1491 (#x5d8 . ?,GX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1492 (#x5d9 . ?,GY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1493 (#x5da . ?,GZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1494 (#x5e0 . ?,G`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1495 (#x5e1 . ?,Ga(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1496 (#x5e2 . ?,Gb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1497 (#x5e3 . ?,Gc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1498 (#x5e4 . ?,Gd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1499 (#x5e5 . ?,Ge(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1500 (#x5e6 . ?,Gf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1501 (#x5e7 . ?,Gg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1502 (#x5e8 . ?,Gh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1503 (#x5e9 . ?,Gi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1504 (#x5ea . ?,Gj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1505 (#x5eb . ?,Gk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1506 (#x5ec . ?,Gl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1507 (#x5ed . ?,Gm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1508 (#x5ee . ?,Gn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1509 (#x5ef . ?,Go(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1510 (#x5f0 . ?,Gp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1511 (#x5f1 . ?,Gq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1512 (#x5f2 . ?,Gr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1513 ;; Cyrillic
66389
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1514 (#x680 . ?$,1)R(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1515 (#x681 . ?$,1)V(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1516 (#x682 . ?$,1)Z(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1517 (#x683 . ?$,1)\(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1518 (#x684 . ?$,1)b(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1519 (#x685 . ?$,1)n(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1520 (#x686 . ?$,1)p(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1521 (#x687 . ?$,1)r(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1522 (#x688 . ?$,1)v(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1523 (#x689 . ?$,1)x(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1524 (#x68a . ?$,1)z(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1525 (#x68c . ?$,1*8(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1526 (#x68d . ?$,1*B(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1527 (#x68e . ?$,1*H(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1528 (#x68f . ?$,1*N(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1529 (#x690 . ?$,1)S(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1530 (#x691 . ?$,1)W(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1531 (#x692 . ?$,1)[(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1532 (#x693 . ?$,1)](B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1533 (#x694 . ?$,1)c(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1534 (#x695 . ?$,1)o(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1535 (#x696 . ?$,1)q(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1536 (#x697 . ?$,1)s(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1537 (#x698 . ?$,1)w(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1538 (#x699 . ?$,1)y(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1539 (#x69a . ?$,1){(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1540 (#x69c . ?$,1*9(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1541 (#x69d . ?$,1*C(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1542 (#x69e . ?$,1*I(B)
58043855503e Register more Cyrillic characters in x-keysym-table.
Kenichi Handa <handa@m17n.org>
parents: 65941
diff changeset
1543 (#x69f . ?$,1*O(B)
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1544 (#x6a1 . ?,Lr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1545 (#x6a2 . ?,Ls(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1546 (#x6a3 . ?,Lq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1547 (#x6a4 . ?,Lt(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1548 (#x6a5 . ?,Lu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1549 (#x6a6 . ?,Lv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1550 (#x6a7 . ?,Lw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1551 (#x6a8 . ?,Lx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1552 (#x6a9 . ?,Ly(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1553 (#x6aa . ?,Lz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1554 (#x6ab . ?,L{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1555 (#x6ac . ?,L|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1556 (#x6ae . ?,L~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1557 (#x6af . ?,L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1558 (#x6b0 . ?,Lp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1559 (#x6b1 . ?,L"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1560 (#x6b2 . ?,L#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1561 (#x6b3 . ?,L!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1562 (#x6b4 . ?,L$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1563 (#x6b5 . ?,L%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1564 (#x6b6 . ?,L&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1565 (#x6b7 . ?,L'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1566 (#x6b8 . ?,L((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1567 (#x6b9 . ?,L)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1568 (#x6ba . ?,L*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1569 (#x6bb . ?,L+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1570 (#x6bc . ?,L,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1571 (#x6be . ?,L.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1572 (#x6bf . ?,L/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1573 (#x6c0 . ?,Ln(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1574 (#x6c1 . ?,LP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1575 (#x6c2 . ?,LQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1576 (#x6c3 . ?,Lf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1577 (#x6c4 . ?,LT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1578 (#x6c5 . ?,LU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1579 (#x6c6 . ?,Ld(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1580 (#x6c7 . ?,LS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1581 (#x6c8 . ?,Le(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1582 (#x6c9 . ?,LX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1583 (#x6ca . ?,LY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1584 (#x6cb . ?,LZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1585 (#x6cc . ?,L[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1586 (#x6cd . ?,L\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1587 (#x6ce . ?,L](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1588 (#x6cf . ?,L^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1589 (#x6d0 . ?,L_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1590 (#x6d1 . ?,Lo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1591 (#x6d2 . ?,L`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1592 (#x6d3 . ?,La(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1593 (#x6d4 . ?,Lb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1594 (#x6d5 . ?,Lc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1595 (#x6d6 . ?,LV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1596 (#x6d7 . ?,LR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1597 (#x6d8 . ?,Ll(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1598 (#x6d9 . ?,Lk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1599 (#x6da . ?,LW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1600 (#x6db . ?,Lh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1601 (#x6dc . ?,Lm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1602 (#x6dd . ?,Li(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1603 (#x6de . ?,Lg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1604 (#x6df . ?,Lj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1605 (#x6e0 . ?,LN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1606 (#x6e1 . ?,L0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1607 (#x6e2 . ?,L1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1608 (#x6e3 . ?,LF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1609 (#x6e4 . ?,L4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1610 (#x6e5 . ?,L5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1611 (#x6e6 . ?,LD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1612 (#x6e7 . ?,L3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1613 (#x6e8 . ?,LE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1614 (#x6e9 . ?,L8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1615 (#x6ea . ?,L9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1616 (#x6eb . ?,L:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1617 (#x6ec . ?,L;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1618 (#x6ed . ?,L<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1619 (#x6ee . ?,L=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1620 (#x6ef . ?,L>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1621 (#x6f0 . ?,L?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1622 (#x6f1 . ?,LO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1623 (#x6f2 . ?,L@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1624 (#x6f3 . ?,LA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1625 (#x6f4 . ?,LB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1626 (#x6f5 . ?,LC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1627 (#x6f6 . ?,L6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1628 (#x6f7 . ?,L2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1629 (#x6f8 . ?,LL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1630 (#x6f9 . ?,LK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1631 (#x6fa . ?,L7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1632 (#x6fb . ?,LH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1633 (#x6fc . ?,LM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1634 (#x6fd . ?,LI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1635 (#x6fe . ?,LG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1636 (#x6ff . ?,LJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1637 ;; Greek
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1638 (#x7a1 . ?,F6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1639 (#x7a2 . ?,F8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1640 (#x7a3 . ?,F9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1641 (#x7a4 . ?,F:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1642 (#x7a5 . ?,FZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1643 (#x7a7 . ?,F<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1644 (#x7a8 . ?,F>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1645 (#x7a9 . ?,F[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1646 (#x7ab . ?,F?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1647 (#x7ae . ?,F5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1648 (#x7af . ?,F/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1649 (#x7b1 . ?,F\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1650 (#x7b2 . ?,F](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1651 (#x7b3 . ?,F^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1652 (#x7b4 . ?,F_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1653 (#x7b5 . ?,Fz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1654 (#x7b6 . ?,F@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1655 (#x7b7 . ?,F|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1656 (#x7b8 . ?,F}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1657 (#x7b9 . ?,F{(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1658 (#x7ba . ?,F`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1659 (#x7bb . ?,F~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1660 (#x7c1 . ?,FA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1661 (#x7c2 . ?,FB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1662 (#x7c3 . ?,FC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1663 (#x7c4 . ?,FD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1664 (#x7c5 . ?,FE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1665 (#x7c6 . ?,FF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1666 (#x7c7 . ?,FG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1667 (#x7c8 . ?,FH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1668 (#x7c9 . ?,FI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1669 (#x7ca . ?,FJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1670 (#x7cb . ?,FK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1671 (#x7cc . ?,FL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1672 (#x7cd . ?,FM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1673 (#x7ce . ?,FN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1674 (#x7cf . ?,FO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1675 (#x7d0 . ?,FP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1676 (#x7d1 . ?,FQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1677 (#x7d2 . ?,FS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1678 (#x7d4 . ?,FT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1679 (#x7d5 . ?,FU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1680 (#x7d6 . ?,FV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1681 (#x7d7 . ?,FW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1682 (#x7d8 . ?,FX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1683 (#x7d9 . ?,FY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1684 (#x7e1 . ?,Fa(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1685 (#x7e2 . ?,Fb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1686 (#x7e3 . ?,Fc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1687 (#x7e4 . ?,Fd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1688 (#x7e5 . ?,Fe(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1689 (#x7e6 . ?,Ff(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1690 (#x7e7 . ?,Fg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1691 (#x7e8 . ?,Fh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1692 (#x7e9 . ?,Fi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1693 (#x7ea . ?,Fj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1694 (#x7eb . ?,Fk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1695 (#x7ec . ?,Fl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1696 (#x7ed . ?,Fm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1697 (#x7ee . ?,Fn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1698 (#x7ef . ?,Fo(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1699 (#x7f0 . ?,Fp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1700 (#x7f1 . ?,Fq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1701 (#x7f2 . ?,Fs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1702 (#x7f3 . ?,Fr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1703 (#x7f4 . ?,Ft(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1704 (#x7f5 . ?,Fu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1705 (#x7f6 . ?,Fv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1706 (#x7f7 . ?,Fw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1707 (#x7f8 . ?,Fx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1708 (#x7f9 . ?,Fy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1709 ;; Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1710 (#x8a1 . ?$,1|W(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1711 (#x8a2 . ?$,2 ,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1712 (#x8a3 . ?$,2 (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1713 (#x8a4 . ?$,1{ (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1714 (#x8a5 . ?$,1{!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1715 (#x8a6 . ?$,2 "(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1716 (#x8a7 . ?$,1|A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1717 (#x8a8 . ?$,1|C(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1718 (#x8a9 . ?$,1|D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1719 (#x8aa . ?$,1|F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1720 (#x8ab . ?$,1|;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1721 (#x8ac . ?$,1|=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1722 (#x8ad . ?$,1|>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1723 (#x8ae . ?$,1|@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1724 (#x8af . ?$,1|H(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1725 (#x8b0 . ?$,1|L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1726 (#x8bc . ?$,1y$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1727 (#x8bd . ?$,1y (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1728 (#x8be . ?$,1y%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1729 (#x8bf . ?$,1xK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1730 (#x8c0 . ?$,1xT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1731 (#x8c1 . ?$,1x=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1732 (#x8c2 . ?$,1x>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1733 (#x8c5 . ?$,1x'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1734 (#x8c8 . ?$,1x\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1735 (#x8c9 . ?$,1xc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1736 (#x8cd . ?$,1wT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1737 (#x8ce . ?$,1wR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1738 (#x8cf . ?$,1y!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1739 (#x8d6 . ?$,1x:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1740 (#x8da . ?$,1yB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1741 (#x8db . ?$,1yC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1742 (#x8dc . ?$,1xI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1743 (#x8dd . ?$,1xJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1744 (#x8de . ?$,1xG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1745 (#x8df . ?$,1xH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1746 (#x8ef . ?$,1x"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1747 (#x8f6 . ?$,1!R(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1748 (#x8fb . ?$,1vp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1749 (#x8fc . ?$,1vq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1750 (#x8fd . ?$,1vr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1751 (#x8fe . ?$,1vs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1752 ;; Special
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1753 (#x9e0 . ?$,2"&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1754 (#x9e1 . ?$,2!R(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1755 (#x9e2 . ?$,1}I(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1756 (#x9e3 . ?$,1}L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1757 (#x9e4 . ?$,1}M(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1758 (#x9e5 . ?$,1}J(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1759 (#x9e8 . ?$,1}d(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1760 (#x9e9 . ?$,1}K(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1761 (#x9ea . ?$,2 8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1762 (#x9eb . ?$,2 0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1763 (#x9ec . ?$,2 ,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1764 (#x9ed . ?$,2 4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1765 (#x9ee . ?$,2 \(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1766 (#x9ef . ?$,1|Z(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1767 (#x9f0 . ?$,1|[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1768 (#x9f1 . ?$,2 (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1769 (#x9f2 . ?$,1|\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1770 (#x9f3 . ?$,1|](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1771 (#x9f4 . ?$,2 <(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1772 (#x9f5 . ?$,2 D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1773 (#x9f6 . ?$,2 T(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1774 (#x9f7 . ?$,2 L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1775 (#x9f8 . ?$,2 "(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1776 ;; Publishing
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1777 (#xaa1 . ?$,1rc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1778 (#xaa2 . ?$,1rb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1779 (#xaa3 . ?$,1rd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1780 (#xaa4 . ?$,1re(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1781 (#xaa5 . ?$,1rg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1782 (#xaa6 . ?$,1rh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1783 (#xaa7 . ?$,1ri(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1784 (#xaa8 . ?$,1rj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1785 (#xaa9 . ?$,1rt(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1786 (#xaaa . ?$,1rs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1787 (#xaae . ?$,1s&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1788 (#xaaf . ?$,1s%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1789 (#xab0 . ?$,1v3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1790 (#xab1 . ?$,1v4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1791 (#xab2 . ?$,1v5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1792 (#xab3 . ?$,1v6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1793 (#xab4 . ?$,1v7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1794 (#xab5 . ?$,1v8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1795 (#xab6 . ?$,1v9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1796 (#xab7 . ?$,1v:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1797 (#xab8 . ?$,1uE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1798 (#xabb . ?$,1rr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1799 (#xabc . ?$,1{)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1800 (#xabe . ?$,1{*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1801 (#xac3 . ?$,1v;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1802 (#xac4 . ?$,1v<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1803 (#xac5 . ?$,1v=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1804 (#xac6 . ?$,1v>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1805 (#xac9 . ?$,1ub(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1806 (#xaca . ?$,2"s(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1807 (#xacc . ?$,2"!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1808 (#xacd . ?$,2!w(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1809 (#xace . ?$,2"+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1810 (#xacf . ?$,2!o(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1811 (#xad0 . ?$,1rx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1812 (#xad1 . ?$,1ry(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1813 (#xad2 . ?$,1r|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1814 (#xad3 . ?$,1r}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1815 (#xad4 . ?$,1u^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1816 (#xad6 . ?$,1s2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1817 (#xad7 . ?$,1s3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1818 (#xad9 . ?$,2%](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1819 (#xadb . ?$,2!l(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1820 (#xadc . ?$,2" (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1821 (#xadd . ?$,2!v(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1822 (#xade . ?$,2"/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1823 (#xadf . ?$,2!n(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1824 (#xae0 . ?$,2"F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1825 (#xae1 . ?$,2!k(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1826 (#xae2 . ?$,2!m(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1827 (#xae3 . ?$,2!s(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1828 (#xae4 . ?$,2!}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1829 (#xae5 . ?$,2"f(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1830 (#xae6 . ?$,1s"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1831 (#xae7 . ?$,2!j(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1832 (#xae8 . ?$,2!r(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1833 (#xae9 . ?$,2!|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1834 (#xaea . ?$,2"|(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1835 (#xaeb . ?$,2"~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1836 (#xaec . ?$,2#c(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1837 (#xaed . ?$,2#f(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1838 (#xaee . ?$,2#e(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1839 (#xaf0 . ?$,2%`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1840 (#xaf1 . ?$,1s (B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1841 (#xaf2 . ?$,1s!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1842 (#xaf3 . ?$,2%S(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1843 (#xaf4 . ?$,2%W(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1844 (#xaf5 . ?$,2#o(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1845 (#xaf6 . ?$,2#m(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1846 (#xaf7 . ?$,2#B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1847 (#xaf8 . ?$,2#@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1848 (#xaf9 . ?$,2"n(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1849 (#xafa . ?$,1zu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1850 (#xafb . ?$,1uW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1851 (#xafc . ?$,1s8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1852 (#xafd . ?$,1rz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1853 (#xafe . ?$,1r~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1854 ;; APL
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1855 (#xba3 . ?<)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1856 (#xba6 . ?>)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1857 (#xba8 . ?$,1xH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1858 (#xba9 . ?$,1xG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1859 (#xbc0 . ?,A/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1860 (#xbc2 . ?$,1ye(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1861 (#xbc3 . ?$,1xI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1862 (#xbc4 . ?$,1zj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1863 (#xbc6 . ?_)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1864 (#xbca . ?$,1x8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1865 (#xbcc . ?$,1|5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1866 (#xbce . ?$,1yd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1867 (#xbcf . ?$,2"+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1868 (#xbd3 . ?$,1zh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1869 (#xbd6 . ?$,1xJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1870 (#xbd8 . ?$,1yC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1871 (#xbda . ?$,1yB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1872 (#xbdc . ?$,1yb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1873 (#xbfc . ?$,1yc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1874 ;; Hebrew
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1875 (#xcdf . ?,H_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1876 (#xce0 . ?,H`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1877 (#xce1 . ?,Ha(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1878 (#xce2 . ?,Hb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1879 (#xce3 . ?,Hc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1880 (#xce4 . ?,Hd(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1881 (#xce5 . ?,He(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1882 (#xce6 . ?,Hf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1883 (#xce7 . ?,Hg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1884 (#xce8 . ?,Hh(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1885 (#xce9 . ?,Hi(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1886 (#xcea . ?,Hj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1887 (#xceb . ?,Hk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1888 (#xcec . ?,Hl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1889 (#xced . ?,Hm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1890 (#xcee . ?,Hn(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1891 (#xcef . ?,Ho(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1892 (#xcf0 . ?,Hp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1893 (#xcf1 . ?,Hq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1894 (#xcf2 . ?,Hr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1895 (#xcf3 . ?,Hs(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1896 (#xcf4 . ?,Ht(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1897 (#xcf5 . ?,Hu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1898 (#xcf6 . ?,Hv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1899 (#xcf7 . ?,Hw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1900 (#xcf8 . ?,Hx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1901 (#xcf9 . ?,Hy(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1902 (#xcfa . ?,Hz(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1903 ;; Thai
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1904 (#xda1 . ?,T!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1905 (#xda2 . ?,T"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1906 (#xda3 . ?,T#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1907 (#xda4 . ?,T$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1908 (#xda5 . ?,T%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1909 (#xda6 . ?,T&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1910 (#xda7 . ?,T'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1911 (#xda8 . ?,T((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1912 (#xda9 . ?,T)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1913 (#xdaa . ?,T*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1914 (#xdab . ?,T+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1915 (#xdac . ?,T,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1916 (#xdad . ?,T-(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1917 (#xdae . ?,T.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1918 (#xdaf . ?,T/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1919 (#xdb0 . ?,T0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1920 (#xdb1 . ?,T1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1921 (#xdb2 . ?,T2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1922 (#xdb3 . ?,T3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1923 (#xdb4 . ?,T4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1924 (#xdb5 . ?,T5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1925 (#xdb6 . ?,T6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1926 (#xdb7 . ?,T7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1927 (#xdb8 . ?,T8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1928 (#xdb9 . ?,T9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1929 (#xdba . ?,T:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1930 (#xdbb . ?,T;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1931 (#xdbc . ?,T<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1932 (#xdbd . ?,T=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1933 (#xdbe . ?,T>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1934 (#xdbf . ?,T?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1935 (#xdc0 . ?,T@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1936 (#xdc1 . ?,TA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1937 (#xdc2 . ?,TB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1938 (#xdc3 . ?,TC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1939 (#xdc4 . ?,TD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1940 (#xdc5 . ?,TE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1941 (#xdc6 . ?,TF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1942 (#xdc7 . ?,TG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1943 (#xdc8 . ?,TH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1944 (#xdc9 . ?,TI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1945 (#xdca . ?,TJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1946 (#xdcb . ?,TK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1947 (#xdcc . ?,TL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1948 (#xdcd . ?,TM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1949 (#xdce . ?,TN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1950 (#xdcf . ?,TO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1951 (#xdd0 . ?,TP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1952 (#xdd1 . ?,TQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1953 (#xdd2 . ?,TR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1954 (#xdd3 . ?,TS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1955 (#xdd4 . ?,TT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1956 (#xdd5 . ?,TU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1957 (#xdd6 . ?,TV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1958 (#xdd7 . ?,TW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1959 (#xdd8 . ?,TX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1960 (#xdd9 . ?,TY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1961 (#xdda . ?,TZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1962 (#xddf . ?,T_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1963 (#xde0 . ?,T`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1964 (#xde1 . ?,Ta(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1965 (#xde2 . ?,Tb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1966 (#xde3 . ?,Tc(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1967 (#xde4 . ?,Td(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1968 (#xde5 . ?,Te(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1969 (#xde6 . ?,Tf(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1970 (#xde7 . ?,Tg(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1971 (#xde8 . ?,Th(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1972 (#xde9 . ?,Ti(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1973 (#xdea . ?,Tj(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1974 (#xdeb . ?,Tk(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1975 (#xdec . ?,Tl(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1976 (#xded . ?,Tm(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1977 (#xdf0 . ?,Tp(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1978 (#xdf1 . ?,Tq(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1979 (#xdf2 . ?,Tr(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1980 (#xdf3 . ?,Ts(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1981 (#xdf4 . ?,Tt(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1982 (#xdf5 . ?,Tu(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1983 (#xdf6 . ?,Tv(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1984 (#xdf7 . ?,Tw(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1985 (#xdf8 . ?,Tx(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1986 (#xdf9 . ?,Ty(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1987 ;; Korean
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1988 (#xea1 . ?$(C$!(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1989 (#xea2 . ?$(C$"(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1990 (#xea3 . ?$(C$#(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1991 (#xea4 . ?$(C$$(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1992 (#xea5 . ?$(C$%(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1993 (#xea6 . ?$(C$&(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1994 (#xea7 . ?$(C$'(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1995 (#xea8 . ?$(C$((B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1996 (#xea9 . ?$(C$)(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1997 (#xeaa . ?$(C$*(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1998 (#xeab . ?$(C$+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
1999 (#xeac . ?$(C$,(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2000 (#xead . ?$(C$-(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2001 (#xeae . ?$(C$.(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2002 (#xeaf . ?$(C$/(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2003 (#xeb0 . ?$(C$0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2004 (#xeb1 . ?$(C$1(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2005 (#xeb2 . ?$(C$2(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2006 (#xeb3 . ?$(C$3(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2007 (#xeb4 . ?$(C$4(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2008 (#xeb5 . ?$(C$5(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2009 (#xeb6 . ?$(C$6(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2010 (#xeb7 . ?$(C$7(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2011 (#xeb8 . ?$(C$8(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2012 (#xeb9 . ?$(C$9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2013 (#xeba . ?$(C$:(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2014 (#xebb . ?$(C$;(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2015 (#xebc . ?$(C$<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2016 (#xebd . ?$(C$=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2017 (#xebe . ?$(C$>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2018 (#xebf . ?$(C$?(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2019 (#xec0 . ?$(C$@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2020 (#xec1 . ?$(C$A(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2021 (#xec2 . ?$(C$B(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2022 (#xec3 . ?$(C$C(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2023 (#xec4 . ?$(C$D(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2024 (#xec5 . ?$(C$E(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2025 (#xec6 . ?$(C$F(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2026 (#xec7 . ?$(C$G(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2027 (#xec8 . ?$(C$H(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2028 (#xec9 . ?$(C$I(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2029 (#xeca . ?$(C$J(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2030 (#xecb . ?$(C$K(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2031 (#xecc . ?$(C$L(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2032 (#xecd . ?$(C$M(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2033 (#xece . ?$(C$N(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2034 (#xecf . ?$(C$O(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2035 (#xed0 . ?$(C$P(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2036 (#xed1 . ?$(C$Q(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2037 (#xed2 . ?$(C$R(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2038 (#xed3 . ?$(C$S(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2039 (#xed4 . ?$,1LH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2040 (#xed5 . ?$,1LI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2041 (#xed6 . ?$,1LJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2042 (#xed7 . ?$,1LK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2043 (#xed8 . ?$,1LL(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2044 (#xed9 . ?$,1LM(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2045 (#xeda . ?$,1LN(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2046 (#xedb . ?$,1LO(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2047 (#xedc . ?$,1LP(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2048 (#xedd . ?$,1LQ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2049 (#xede . ?$,1LR(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2050 (#xedf . ?$,1LS(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2051 (#xee0 . ?$,1LT(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2052 (#xee1 . ?$,1LU(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2053 (#xee2 . ?$,1LV(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2054 (#xee3 . ?$,1LW(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2055 (#xee4 . ?$,1LX(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2056 (#xee5 . ?$,1LY(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2057 (#xee6 . ?$,1LZ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2058 (#xee7 . ?$,1L[(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2059 (#xee8 . ?$,1L\(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2060 (#xee9 . ?$,1L](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2061 (#xeea . ?$,1L^(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2062 (#xeeb . ?$,1L_(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2063 (#xeec . ?$,1L`(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2064 (#xeed . ?$,1La(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2065 (#xeee . ?$,1Lb(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2066 (#xeef . ?$(C$](B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2067 (#xef0 . ?$(C$a(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2068 (#xef1 . ?$(C$h(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2069 (#xef2 . ?$(C$o(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2070 (#xef3 . ?$(C$q(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2071 (#xef4 . ?$(C$t(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2072 (#xef5 . ?$(C$v(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2073 (#xef6 . ?$(C$}(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2074 (#xef7 . ?$(C$~(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2075 (#xef8 . ?$,1M+(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2076 (#xef9 . ?$,1M0(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2077 (#xefa . ?$,1M9(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2078 (#xeff . ?$,1tI(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2079 ;; Latin-5
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2080 ;; Latin-6
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2081 ;; Latin-7
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2082 ;; Latin-8
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2083 ;; Latin-9
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2084 (#x13bc . ?,b<(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2085 (#x13bd . ?,b=(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2086 (#x13be . ?,b>(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2087 ;; Currency
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2088 (#x20a0 . ?$,1t@(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2089 (#x20a1 . ?$,1tA(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2090 (#x20a2 . ?$,1tB(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2091 (#x20a3 . ?$,1tC(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2092 (#x20a4 . ?$,1tD(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2093 (#x20a5 . ?$,1tE(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2094 (#x20a6 . ?$,1tF(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2095 (#x20a7 . ?$,1tG(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2096 (#x20a8 . ?$,1tH(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2097 (#x20aa . ?$,1tJ(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2098 (#x20ab . ?$,1tK(B)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2099 (#x20ac . ?,b$(B)))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2100 (puthash (car pair) (cdr pair) x-keysym-table))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2101
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2102 ;; 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
2103 ;; as not having unicodes available:
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2104
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2105 ;; #x08b1 TOP LEFT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2106 ;; #x08b2 BOTTOM LEFT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2107 ;; #x08b3 TOP VERTICAL SUMMATION CONNECTOR Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2108 ;; #x08b4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2109 ;; #x08b5 TOP RIGHT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2110 ;; #x08b6 BOTTOM RIGHT SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2111 ;; #x08b7 RIGHT MIDDLE SUMMATION Technical
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2112 ;; #x0aac SIGNIFICANT BLANK SYMBOL Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2113 ;; #x0abd DECIMAL POINT Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2114 ;; #x0abf MARKER Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2115 ;; #x0acb TRADEMARK SIGN IN CIRCLE Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2116 ;; #x0ada HEXAGRAM Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2117 ;; #x0aff CURSOR Publish
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2118 ;; #x0dde THAI MAIHANAKAT Thai
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2119
54
bacfccb982c9 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2120
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
2121 ;;;; Selections and cut buffers
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
2122
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2123 ;; 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
2124 ;; 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
2125 ;; 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
2126 ;; 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
2127 ;; (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
2128 ;; 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
2129 (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
2130 "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
2131 pasted text.")
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
2132 (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
2133 "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
2134 pasted text.")
50075
cfb7d0684cf8 (vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
John Paul Wallington <jpw@pobox.com>
parents: 49599
diff changeset
2135 (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
2136 "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
2137 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
2138 (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
2139 "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
2140 This is the actual text stored in the X cut buffer.")
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 707
diff changeset
2141
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2142 (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
2143 "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
2144 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
2145
33917
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
2146 (defcustom x-select-enable-clipboard nil
6698
b107e54218fe (x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 6399
diff changeset
2147 "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
2148 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
2149 :type 'boolean
8fdc1e5e72f3 (x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents: 29555
diff changeset
2150 :group 'killing)
6698
b107e54218fe (x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 6399
diff changeset
2151
3036
98f500ca5593 (x-select-text): New arg PUSH.
Richard M. Stallman <rms@gnu.org>
parents: 2808
diff changeset
2152 (defun x-select-text (text &optional push)
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2153 "Make TEXT, a string, the primary X selection.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2154 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
2155 with older X applications.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2156 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
2157 in the clipboard."
4236
8e14db210975 (x-select-text): Limit size of text sent to cut buffer.
Richard M. Stallman <rms@gnu.org>
parents: 4132
diff changeset
2158 ;; Don't send the cut buffer too much text.
8e14db210975 (x-select-text): Limit size of text sent to cut buffer.
Richard M. Stallman <rms@gnu.org>
parents: 4132
diff changeset
2159 ;; It becomes slow, and if really big it causes errors.
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
2160 (cond ((>= (length text) x-cut-buffer-max)
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
2161 (x-set-cut-buffer "" push)
58695
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2162 (setq x-last-selected-text-cut ""
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2163 x-last-selected-text-cut-encoded ""))
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2164 (t
58695
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2165 (setq x-last-selected-text-cut text
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2166 x-last-selected-text-cut-encoded
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2167 (encode-coding-string text (or locale-coding-system
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2168 'iso-latin-1)))
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2169 (x-set-cut-buffer x-last-selected-text-cut-encoded push)))
2366
ed9b74c46fb9 * x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents: 2157
diff changeset
2170 (x-set-selection 'PRIMARY 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
2171 (setq x-last-selected-text-primary text)
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
2172 (when x-select-enable-clipboard
50114
627c4cc6b42b (x-select-text): Don't set a text containing
Kenichi Handa <handa@m17n.org>
parents: 50075
diff changeset
2173 (x-set-selection 'CLIPBOARD text)
627c4cc6b42b (x-select-text): Don't set a text containing
Kenichi Handa <handa@m17n.org>
parents: 50075
diff changeset
2174 (setq x-last-selected-text-clipboard 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
2175 )
643
9759addc5671 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 506
diff changeset
2176
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2177 (defvar x-select-request-type nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2178 "*Data type request for X selection.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2179 The value is nil, one of the following data types, or a list of them:
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2180 `COMPOUND_TEXT', `UTF8_STRING', `STRING', `TEXT'
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2181
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2182 If the value is nil, try `COMPOUND_TEXT' and `UTF8_STRING', and
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2183 use the more appropriate result. If both fail, try `STRING', and
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2184 then `TEXT'.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2185
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2186 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
2187 type.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2188
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2189 If the value is a list of them, try each of them in the specified
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2190 order until succeed.")
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2191
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2192 ;; Helper function for x-selection-value. Select UTF8 or CTEXT
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2193 ;; whichever is more appropriate. Here, we use this heurisitcs.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2194 ;;
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2195 ;; (1) If their lengthes are different, select the longer one. This
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2196 ;; is because an X client may just cut off unsupported characters.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2197 ;;
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2198 ;; (2) Otherwise, if the Nth character of CTEXT is an ASCII
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2199 ;; character that is different from the Nth character of UTF8,
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2200 ;; select UTF8. This is because an X client may replace unsupported
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2201 ;; characters with some ASCII character (typically ` ' or `?') in
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2202 ;; CTEXT.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2203 ;;
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2204 ;; (3) Otherwise, select CTEXT. This is because legacy charsets are
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2205 ;; better for the current Emacs, especially when the selection owner
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2206 ;; is also Emacs.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2207
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2208 (defun x-select-utf8-or-ctext (utf8 ctext)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2209 (let ((len-utf8 (length utf8))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2210 (len-ctext (length ctext))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2211 (selected ctext)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2212 (i 0)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2213 char)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2214 (if (/= len-utf8 len-ctext)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2215 (if (> len-utf8 len-ctext) utf8 ctext)
53906
b8d76d842cb9 (x-select-utf8-or-ctext): Use compare-strings instead of while loop.
Kenichi Handa <handa@m17n.org>
parents: 53789
diff changeset
2216 (let ((result (compare-strings utf8 0 len-utf8 ctext 0 len-ctext)))
b8d76d842cb9 (x-select-utf8-or-ctext): Use compare-strings instead of while loop.
Kenichi Handa <handa@m17n.org>
parents: 53789
diff changeset
2217 (if (or (eq result t)
b8d76d842cb9 (x-select-utf8-or-ctext): Use compare-strings instead of while loop.
Kenichi Handa <handa@m17n.org>
parents: 53789
diff changeset
2218 (>= (aref ctext (1- (abs result))) 128))
b8d76d842cb9 (x-select-utf8-or-ctext): Use compare-strings instead of while loop.
Kenichi Handa <handa@m17n.org>
parents: 53789
diff changeset
2219 ctext
b8d76d842cb9 (x-select-utf8-or-ctext): Use compare-strings instead of while loop.
Kenichi Handa <handa@m17n.org>
parents: 53789
diff changeset
2220 utf8)))))
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2221
63191
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
2222 ;; Get a selection value of type TYPE by calling x-get-selection with
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
2223 ;; an appropiate DATA-TYPE argument decidd by `x-select-request-type'.
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
2224 ;; 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
2225 ;; error, this function return nil.
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
2226
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2227 (defun x-selection-value (type)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2228 (let (text)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2229 (cond ((null x-select-request-type)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2230 (let (utf8 ctext utf8-coding)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2231 ;; We try both UTF8_STRING and COMPOUND_TEXT, and choose
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2232 ;; the more appropriate one. If both fail, try STRING.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2233
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2234 ;; At first try UTF8_STRING.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2235 (setq utf8 (condition-case nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2236 (x-get-selection type 'UTF8_STRING)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2237 (error nil))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2238 utf8-coding last-coding-system-used)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2239 (if utf8
53745
625168ecac3f *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 53744
diff changeset
2240 ;; If it is a local selection, or it contains only
53744
ac5e37408488 (x-selection-value): Optimize for ASCII only case.
Kenichi Handa <handa@m17n.org>
parents: 53662
diff changeset
2241 ;; ASCII characers, choose it.
ac5e37408488 (x-selection-value): Optimize for ASCII only case.
Kenichi Handa <handa@m17n.org>
parents: 53662
diff changeset
2242 (if (or (not (get-text-property 0 'foreign-selection utf8))
ac5e37408488 (x-selection-value): Optimize for ASCII only case.
Kenichi Handa <handa@m17n.org>
parents: 53662
diff changeset
2243 (= (length utf8) (string-bytes utf8)))
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2244 (setq text utf8)))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2245 ;; If not yet decided, try COMPOUND_TEXT.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2246 (if (not text)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2247 (if (setq ctext (condition-case nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2248 (x-get-selection type 'COMPOUND_TEXT)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2249 (error nil)))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2250 ;; If UTF8_STRING was also successful, choose the
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2251 ;; more appropriate one from UTF8 and CTEXT.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2252 (if utf8
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2253 (setq text (x-select-utf8-or-ctext utf8 ctext))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2254 ;; Othewise, choose CTEXT.
56674
302e4e1415d3 term/x-win.el (x-selection-value): If utf8 was successful but
Kenichi Handa <handa@m17n.org>
parents: 55343
diff changeset
2255 (setq text ctext))
302e4e1415d3 term/x-win.el (x-selection-value): If utf8 was successful but
Kenichi Handa <handa@m17n.org>
parents: 55343
diff changeset
2256 (setq text utf8)))
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2257 ;; If not yet decided, try STRING.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2258 (or text
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2259 (setq text (condition-case nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2260 (x-get-selection type 'STRING)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2261 (error nil))))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2262 (if (eq text utf8)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2263 (setq last-coding-system-used utf8-coding))))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2264
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2265 ((consp x-select-request-type)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2266 (let ((tail x-select-request-type))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2267 (while (and tail (not text))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2268 (condition-case nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2269 (setq text (x-get-selection type (car tail)))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2270 (error nil))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2271 (setq tail (cdr tail)))))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2272
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2273 (t
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2274 (condition-case nil
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2275 (setq text (x-get-selection type x-select-request-type))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2276 (error nil))))
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2277
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2278 (if text
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2279 (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
2280 text))
64701
34bd8e434dd7 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2281
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2282 ;; Return the value of the current X selection.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2283 ;; 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
2284 ;; as if they were unset.
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2285 ;; 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
2286 ;; 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
2287 ;; selection won't be added to the kill ring over and over.
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
2288 (defun x-cut-buffer-or-selection-value ()
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
2289 (let (clip-text primary-text cut-text)
19112
3940bb7f5515 (x-cut-buffer-or-selection-value): Try both
Richard M. Stallman <rms@gnu.org>
parents: 19085
diff changeset
2290 (when x-select-enable-clipboard
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2291 (setq clip-text (x-selection-value 'CLIPBOARD))
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
2292 (if (string= clip-text "") (setq clip-text 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
2293
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
2294 ;; Check the CLIPBOARD selection for 'newness', is it different
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
2295 ;; 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
2296 ;; cut/paste operation.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2297 (setq 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
2298 (cond;; check clipboard
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
2299 ((or (not clip-text) (string= clip-text ""))
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
2300 (setq 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
2301 ((eq clip-text 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
2302 ((string= clip-text x-last-selected-text-clipboard)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2303 ;; Record the newer string,
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
2304 ;; so subsequent calls can use the `eq' test.
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
2305 (setq x-last-selected-text-clipboard clip-text)
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
2306 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
2307 (t
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
2308 (setq x-last-selected-text-clipboard clip-text))))
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
2309 )
19112
3940bb7f5515 (x-cut-buffer-or-selection-value): Try both
Richard M. Stallman <rms@gnu.org>
parents: 19085
diff changeset
2310
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2311 (setq primary-text (x-selection-value 'PRIMARY))
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
2312 ;; Check the PRIMARY selection for 'newness', is it different
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
2313 ;; 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
2314 ;; cut/paste operation.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2315 (setq primary-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
2316 (cond;; check primary selection
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
2317 ((or (not primary-text) (string= primary-text ""))
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
2318 (setq x-last-selected-text-primary 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
2319 ((eq primary-text x-last-selected-text-primary) 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
2320 ((string= primary-text x-last-selected-text-primary)
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2321 ;; Record the newer string,
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
2322 ;; so subsequent calls can use the `eq' test.
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
2323 (setq x-last-selected-text-primary primary-text)
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
2324 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
2325 (t
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
2326 (setq x-last-selected-text-primary primary-text))))
23903
7d1efca4eadc (x-cut-buffer-or-selection-value):
Karl Heuer <kwzh@gnu.org>
parents: 23686
diff changeset
2327
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
2328 (setq cut-text (x-get-cut-buffer 0))
1266
bf6b4bc3ccc0 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1265
diff changeset
2329
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
2330 ;; Check the x cut buffer for 'newness', is it different
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
2331 ;; 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
2332 ;; cut/paste operation.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2333 (setq cut-text
58695
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2334 (cond;; check cut buffer
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
2335 ((or (not cut-text) (string= cut-text ""))
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
2336 (setq 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
2337 ;; This short cut doesn't work because x-get-cut-buffer
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2338 ;; always returns a newly created string.
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2339 ;; ((eq cut-text x-last-selected-text-cut) nil)
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2340 ((string= cut-text x-last-selected-text-cut-encoded)
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2341 ;; See the comment above. No need of this recording.
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2342 ;; Record the newer string,
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
2343 ;; so subsequent calls can use the `eq' test.
58695
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2344 ;; (setq x-last-selected-text-cut cut-text)
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2345 nil)
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2346 (t
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2347 (setq x-last-selected-text-cut-encoded cut-text
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2348 x-last-selected-text-cut
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2349 (decode-coding-string cut-text (or locale-coding-system
b742505dc5c4 (x-last-selected-text-cut-encoded): New variable.
Kenichi Handa <handa@m17n.org>
parents: 56674
diff changeset
2350 'iso-latin-1))))))
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
2351
51601
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2352 ;; As we have done one selection, clear this now.
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2353 (setq next-selection-coding-system nil)
c2c18aa16be3 (x-select-request-type): New variable.
Kenichi Handa <handa@m17n.org>
parents: 51181
diff changeset
2354
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
2355 ;; At this point we have recorded the current values for the
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
2356 ;; selection from clipboard (if we are supposed to) primary,
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
2357 ;; and cut buffer. So return the first one that has changed
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
2358 ;; (which is the first non-null one).
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
2359 ;;
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
2360 ;; NOTE: There will be cases where more than one of these has
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
2361 ;; changed and the new values differ. This indicates that
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
2362 ;; something like the following has happened since the last time
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
2363 ;; we looked at the selections: Application X set all the
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
2364 ;; selections, then Application Y set only one or two of them (say
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
2365 ;; just the cut-buffer). In this case since we don't have
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
2366 ;; timestamps there is no way to know what the 'correct' value to
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
2367 ;; return is. The nice thing to do would be to tell the user we
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
2368 ;; saw multiple possible selections and ask the user which was the
49599
5ade352e8d1c Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49288
diff changeset
2369 ;; one they wanted.
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
2370 ;; This code is still a big improvement because now the user can
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
2371 ;; futz with the current selection and get emacs to pay attention
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
2372 ;; to the cut buffer again (previously as soon as clipboard 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
2373 ;; primary had been set the cut buffer would essentially never be
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
2374 ;; checked again).
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
2375 (or clip-text primary-text cut-text)
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
2376 ))
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
2377
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
2378
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2379 ;; Do the actual X Windows setup here; the above code just defines
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2380 ;; functions and variables that we use now.
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
2381
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
2382 (setq command-line-args (x-handle-args command-line-args))
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2383
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2384 ;; Make sure we have a valid resource name.
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2385 (or (stringp x-resource-name)
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2386 (let (i)
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2387 (setq x-resource-name (invocation-name))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2388
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2389 ;; Change any . or * characters in x-resource-name to hyphens,
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2390 ;; so as not to choke when we use it in X resource queries.
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2391 (while (setq i (string-match "[.*]" x-resource-name))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2392 (aset x-resource-name i ?-))))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2393
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2394 (x-open-connection (or x-display-name
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2395 (setq x-display-name (getenv "DISPLAY")))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2396 x-command-line-resources
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2397 ;; Exit Emacs with fatal error if this fails.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2398 t)
1546
da9a60e97e72 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 1266
diff changeset
2399
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
2400 (setq frame-creation-function 'x-create-frame-with-faces)
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
2401
4306
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
2402 (setq x-cut-buffer-max (min (- (/ (x-server-max-request-size) 2) 100)
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
2403 x-cut-buffer-max))
2e51ffb537a8 (x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4280
diff changeset
2404
49288
7f09b406bc3c Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents: 49185
diff changeset
2405 ;; Setup the default fontset.
7f09b406bc3c Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents: 49185
diff changeset
2406 (setup-default-fontset)
7f09b406bc3c Require fontset unconditionally again.
Kenichi Handa <handa@m17n.org>
parents: 49185
diff changeset
2407
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2408 ;; Create the standard fontset.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2409 (create-fontset-from-fontset-spec standard-fontset-spec t)
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
2410
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2411 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2412 (create-fontset-from-x-resource)
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
2413
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2414 ;; Try to create a fontset from a font specification which comes
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2415 ;; from initial-frame-alist, default-frame-alist, or X resource.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2416 ;; A font specification in command line argument (i.e. -fn XXXX)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2417 ;; should be already in default-frame-alist as a `font'
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2418 ;; parameter. However, any font specifications in site-start
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2419 ;; library, user's init file (.emacs), and default.el are not
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2420 ;; yet handled here.
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
2421
48091
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2422 (let ((font (or (cdr (assq 'font initial-frame-alist))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2423 (cdr (assq 'font default-frame-alist))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2424 (x-get-resource "font" "Font")))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2425 xlfd-fields resolved-name)
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2426 (if (and font
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2427 (not (query-fontset font))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2428 (setq resolved-name (x-resolve-font-name font))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2429 (setq xlfd-fields (x-decompose-font-name font)))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2430 (if (string= "fontset" (aref xlfd-fields xlfd-regexp-registry-subnum))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2431 (new-fontset font (x-complement-fontset-spec xlfd-fields nil))
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2432 ;; Create a fontset from FONT. The fontset name is
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2433 ;; generated from FONT.
21fa9981d2ba Remove some ancient compatibility code. Populate
Dave Love <fx@gnu.org>
parents: 47198
diff changeset
2434 (create-fontset-from-ascii-font font resolved-name "startup"))))
17014
828cf55629fc Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents: 16835
diff changeset
2435
3172
2a484b449183 * x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents: 3081
diff changeset
2436 ;; Apply a geometry resource to the initial frame. Put it at the end
2a484b449183 * x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents: 3081
diff changeset
2437 ;; of the alist, so that anything specified on the command line takes
2a484b449183 * x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents: 3081
diff changeset
2438 ;; precedence.
10400
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2439 (let* ((res-geometry (x-get-resource "geometry" "Geometry"))
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2440 parsed)
3172
2a484b449183 * x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents: 3081
diff changeset
2441 (if res-geometry
10400
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2442 (progn
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2443 (setq parsed (x-parse-geometry res-geometry))
11821
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
2444 ;; If the resource specifies a position,
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
2445 ;; call the position and size "user-specified".
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
2446 (if (or (assq 'top parsed) (assq 'left parsed))
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
2447 (setq parsed (cons '(user-position . t)
278e0abb825f If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents: 11718
diff changeset
2448 (cons '(user-size . t) parsed))))
10400
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2449 ;; All geometry parms apply to the initial frame.
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2450 (setq initial-frame-alist (append initial-frame-alist parsed))
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2451 ;; The size parms apply to all frames.
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2452 (if (assq 'height parsed)
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2453 (setq default-frame-alist
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2454 (cons (cons 'height (cdr (assq 'height parsed)))
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2455 default-frame-alist)))
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2456 (if (assq 'width parsed)
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2457 (setq default-frame-alist
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2458 (cons (cons 'width (cdr (assq 'width parsed)))
2743977604b1 Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents: 10094
diff changeset
2459 default-frame-alist))))))
3172
2a484b449183 * x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents: 3081
diff changeset
2460
3966
dcf86f82f2c8 * term/x-win.el: Check the reverseVideo/ReverseVideo resource,
Jim Blandy <jimb@redhat.com>
parents: 3889
diff changeset
2461 ;; Check the reverseVideo resource.
4132
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2462 (let ((case-fold-search t))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2463 (let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2464 (if (and rv
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2465 (string-match "^\\(true\\|yes\\|on\\)$" rv))
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2466 (setq default-frame-alist
e0345afdf64e * term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents: 3966
diff changeset
2467 (cons '(reverse . t) default-frame-alist)))))
3966
dcf86f82f2c8 * term/x-win.el: Check the reverseVideo/ReverseVideo resource,
Jim Blandy <jimb@redhat.com>
parents: 3889
diff changeset
2468
3493
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2469 ;; Set x-selection-timeout, measured in milliseconds.
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2470 (let ((res-selection-timeout
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2471 (x-get-resource "selectionTimeout" "SelectionTimeout")))
4280
fcc66d1d9289 (x-selection-timeout): Use 20000 as default.
Richard M. Stallman <rms@gnu.org>
parents: 4273
diff changeset
2472 (setq x-selection-timeout 20000)
3493
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2473 (if res-selection-timeout
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2474 (setq x-selection-timeout (string-to-number res-selection-timeout))))
b37b09c0b43d (x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents: 3373
diff changeset
2475
2145
aa0b19850348 Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents: 2143
diff changeset
2476 (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
2477 (error "Suspending an Emacs running under X makes no sense"))
2366
ed9b74c46fb9 * x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents: 2157
diff changeset
2478 (add-hook 'suspend-hook 'x-win-suspend-error)
ed9b74c46fb9 * x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents: 2157
diff changeset
2479
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2480 ;; Arrange for the kill and yank functions to set and check the clipboard.
707
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
2481 (setq interprogram-cut-function 'x-select-text)
e4253da532fb *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 643
diff changeset
2482 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
273
0740875c024a *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 192
diff changeset
2483
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2484 ;; Turn off window-splitting optimization; X is usually fast enough
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2485 ;; that this is only annoying.
383
4f7094a6b826 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 380
diff changeset
2486 (setq split-window-keep-point t)
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
2487
11290
e7510a23df8e (mode-line-buffer-identification): Eliminate %F.
Richard M. Stallman <rms@gnu.org>
parents: 10400
diff changeset
2488 ;; Don't show the frame name; that's redundant with X.
17811
b3b2e2db1de7 Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 17809
diff changeset
2489 (setq-default mode-line-frame-identification " ")
11290
e7510a23df8e (mode-line-buffer-identification): Eliminate %F.
Richard M. Stallman <rms@gnu.org>
parents: 10400
diff changeset
2490
51181
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2491 ;; Motif direct handling of f10 wasn't working right,
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2492 ;; So temporarily we've turned it off in lwlib-Xm.c
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2493 ;; and turned the Emacs f10 back on.
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2494 ;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2495 ;; (if (featurep 'motif)
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2496 ;; (global-set-key [f10] 'ignore))
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2497
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2498 ;; Turn on support for mouse wheels.
9de1323b5882 (iconify-or-deiconify-frame): Move to frame.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 50115
diff changeset
2499 (mouse-wheel-mode 1)
15058
767429c4d3d2 [motif]: Make f10 undefined.
Richard M. Stallman <rms@gnu.org>
parents: 14977
diff changeset
2500
53789
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
2501
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
2502 ;; Enable CLIPBOARD copy/paste through menu bar commands.
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
2503 (menu-bar-enable-clipboard)
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
2504
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
2505 ;; Override Paste so it looks at CLIPBOARD first.
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
2506 (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
2507 "Insert the clipboard contents, or the last stretch of killed 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
2508 (interactive)
63191
d9becfcb69a7 (x-clipboard-yank): Remove condition-case
Kenichi Handa <handa@m17n.org>
parents: 63182
diff changeset
2509 (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
2510 (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
2511 (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
2512 (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
2513 (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
2514
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
2515 (define-key menu-bar-edit-menu [paste]
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
2516 (cons "Paste" (cons "Paste text from clipboard or kill ring"
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
2517 '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
2518
53789
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
2519 ;; 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
2520 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
2521 (global-set-key [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
7efe8089eadf * x-dnd.el: New file for drag and drop.
Jan Djärv <jan.h.d@swipnet.se>
parents: 53745
diff changeset
2522
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
2523 ;; Let F10 do menu bar navigation.
71133
7cb50e0625f4 * term/x-win.el: Change x-menu-bar-start to menu-bar-open.
Jan Djärv <jan.h.d@swipnet.se>
parents: 71061
diff changeset
2524 (and (fboundp 'menu-bar-open)
7cb50e0625f4 * term/x-win.el: Change x-menu-bar-start to menu-bar-open.
Jan Djärv <jan.h.d@swipnet.se>
parents: 71061
diff changeset
2525 (global-set-key [f10] 'menu-bar-open))
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
2526
66640
eb72b7c5a0b9 Various comment syntax fixes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 66389
diff changeset
2527 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
2157
0d77768bf3f2 Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2145
diff changeset
2528 ;;; x-win.el ends here