annotate lisp/term/x-win.el @ 82426:a86fcb95bff2

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