Mercurial > emacs
annotate lisp/term/x-win.el @ 45005:084928cfcfcb
(Fstart_process): Update call to openp.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 30 Apr 2002 01:01:37 +0000 |
parents | ca555c0c4e07 |
children | b80d723ad7cc |
rev | line source |
---|---|
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
1 ;;; x-win.el --- parse switches controlling interface with X window system |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
2 |
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
|
3 ;; Copyright (C) 1993, 1994, 2001, 2002 Free Software Foundation, Inc. |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
4 |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
5 ;; Author: FSF |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
6 ;; Keywords: terminals |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
7 |
14170
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
8 ;; This file is part of GNU Emacs. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
9 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
10 ;; 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
|
11 ;; it under the terms of the GNU General Public License as published by |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
12 ;; the Free Software Foundation; either version 2, or (at your option) |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
13 ;; any later version. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
14 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
15 ;; 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
|
16 ;; 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
|
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
18 ;; GNU General Public License for more details. |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
19 |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
20 ;; 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
|
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
23cc3f54e536
Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents:
14122
diff
changeset
|
23 ;; Boston, MA 02111-1307, USA. |
54 | 24 |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
25 ;;; Commentary: |
54 | 26 |
27 ;; X-win.el: this file is loaded from ../lisp/startup.el when it recognizes | |
28 ;; that X windows are to be used. Command line switches are parsed and those | |
29 ;; pertaining to X are processed and removed from the command line. The | |
30 ;; X display is opened and hooks are set for popping up the initial window. | |
31 | |
32 ;; startup.el will then examine startup files, and eventually call the hooks | |
33 ;; which create the first window (s). | |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
34 |
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
35 ;;; Code: |
54 | 36 |
37 ;; These are the standard X switches from the Xt Initialize.c file of | |
38 ;; Release 4. | |
39 | |
40 ;; Command line Resource Manager string | |
41 | |
42 ;; +rv *reverseVideo | |
43 ;; +synchronous *synchronous | |
44 ;; -background *background | |
45 ;; -bd *borderColor | |
46 ;; -bg *background | |
47 ;; -bordercolor *borderColor | |
48 ;; -borderwidth .borderWidth | |
49 ;; -bw .borderWidth | |
50 ;; -display .display | |
51 ;; -fg *foreground | |
52 ;; -fn *font | |
53 ;; -font *font | |
54 ;; -foreground *foreground | |
55 ;; -geometry .geometry | |
3070
08003ba2ac71
* x-win.el (command-switch-alist, x-switch-definitions): Treat
Jim Blandy <jimb@redhat.com>
parents:
3068
diff
changeset
|
56 ;; -i .iconType |
08003ba2ac71
* x-win.el (command-switch-alist, x-switch-definitions): Treat
Jim Blandy <jimb@redhat.com>
parents:
3068
diff
changeset
|
57 ;; -itype .iconType |
54 | 58 ;; -iconic .iconic |
59 ;; -name .name | |
60 ;; -reverse *reverseVideo | |
61 ;; -rv *reverseVideo | |
62 ;; -selectionTimeout .selectionTimeout | |
63 ;; -synchronous *synchronous | |
64 ;; -xrm | |
65 | |
66 ;; An alist of X options and the function which handles them. See | |
67 ;; ../startup.el. | |
68 | |
273 | 69 (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
|
70 (error "%s: Loading x-win.el but not compiled for X" (invocation-name))) |
273 | 71 |
779 | 72 (require 'frame) |
467 | 73 (require 'mouse) |
1972
b0cde2f5164d
* term/x-win.el: Require `scroll-bar', not `scrollbar'.
Jim Blandy <jimb@redhat.com>
parents:
1954
diff
changeset
|
74 (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
|
75 (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
|
76 (require 'select) |
2808 | 77 (require 'menu-bar) |
17169
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
78 (if (fboundp 'new-fontset) |
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
79 (require 'fontset)) |
273 | 80 |
3373
4177a984e5c0
(x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
81 (defvar x-invocation-args) |
4177a984e5c0
(x-invocation-args): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
3287
diff
changeset
|
82 |
3081
63c51f1e885b
Pass x-command-line-resources to x-open-connection.
Richard M. Stallman <rms@gnu.org>
parents:
3070
diff
changeset
|
83 (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
|
84 |
54 | 85 ;; Handler for switches of the form "-switch value" or "-switch". |
86 (defun x-handle-switch (switch) | |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
87 (let ((aelt (assoc switch command-line-x-option-alist))) |
54 | 88 (if aelt |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
89 (let ((param (nth 3 aelt)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
90 (value (nth 4 aelt))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
91 (if value |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
92 (setq default-frame-alist |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
93 (cons (cons param value) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
94 default-frame-alist)) |
779 | 95 (setq default-frame-alist |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
96 (cons (cons param |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
97 (car x-invocation-args)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
98 default-frame-alist) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
99 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
|
100 |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
101 ;; 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
|
102 (defun x-handle-numeric-switch (switch) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
103 (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
|
104 (if aelt |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
105 (let ((param (nth 3 aelt))) |
779 | 106 (setq default-frame-alist |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
107 (cons (cons param |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
108 (string-to-int (car x-invocation-args))) |
779 | 109 default-frame-alist) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
110 x-invocation-args |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
111 (cdr x-invocation-args)))))) |
54 | 112 |
42710
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
113 ;; Handle options that apply to initial frame only |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
114 (defun x-handle-initial-switch (switch) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
115 (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
|
116 (if aelt |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
117 (let ((param (nth 3 aelt)) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
118 (value (nth 4 aelt))) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
119 (if value |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
120 (setq initial-frame-alist |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
121 (cons (cons param value) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
122 initial-frame-alist)) |
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 |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
125 (car x-invocation-args)) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
126 initial-frame-alist) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
127 x-invocation-args (cdr x-invocation-args))))))) |
036b67c8fc3f
(x-handle-initial-switch): New function.
Eli Zaretskii <eliz@gnu.org>
parents:
42286
diff
changeset
|
128 |
4306
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
129 ;; Make -iconic apply only to the initial frame! |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
130 (defun x-handle-iconic (switch) |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
131 (setq initial-frame-alist |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
132 (cons '(visibility . icon) initial-frame-alist))) |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
133 |
4132
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
134 ;; 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
|
135 (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
|
136 (unless (consp x-invocation-args) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
137 (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
|
138 (setq x-command-line-resources |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
139 (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
|
140 (car x-invocation-args) |
30246e46027e
(x-handle-xrm-switch): Accept more than one -xrm
Gerd Moellmann <gerd@gnu.org>
parents:
33917
diff
changeset
|
141 (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
|
142 (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
|
143 |
54 | 144 ;; Handle the geometry option |
145 (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
|
146 (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
|
147 (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
|
148 (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
|
149 (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
|
150 (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
|
151 (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
|
152 (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
|
153 (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
|
154 '((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
|
155 (if height (list height)) |
42932
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
156 (if width (list width))) |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
157 initial-frame-alist |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
158 (append initial-frame-alist |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
159 '((user-size . t)) |
5676a5820a04
(x-handle-geometry): Put sizes on both
Richard M. Stallman <rms@gnu.org>
parents:
42710
diff
changeset
|
160 (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
|
161 (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
|
162 (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
|
163 (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
|
164 (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
|
165 '((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
|
166 (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
|
167 (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
|
168 (setq x-invocation-args (cdr x-invocation-args)))) |
54 | 169 |
15538
9ed106f6e1be
(x-handle-name-switch): Renamed from x-handle-name-rn-switch.
Richard M. Stallman <rms@gnu.org>
parents:
15058
diff
changeset
|
170 ;; 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
|
171 ;; 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
|
172 ;; 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
|
173 (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
|
174 (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
|
175 (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
|
176 (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
|
177 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
|
178 (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
|
179 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
|
180 |
54 | 181 (defvar x-display-name nil |
779 | 182 "The X display name specifying server and X frame.") |
54 | 183 |
184 (defun x-handle-display (switch) | |
185 (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
|
186 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
|
187 ;; 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
|
188 ;; 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
|
189 ;; 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
|
190 ;; 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
|
191 (setenv "DISPLAY" x-display-name)) |
54 | 192 |
321 | 193 (defun x-handle-args (args) |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
194 "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
|
195 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
|
196 `x-invocation-args', from which the X-related things are extracted, first |
321 | 197 the switch (e.g., \"-fg\") in the following code, and possible values |
7639 | 198 \(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
|
199 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
|
200 ;; We use ARGS to accumulate the args that we don't handle here, to return. |
273 | 201 (setq x-invocation-args args |
202 args nil) | |
16835
7584a510ad85
(x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents:
15815
diff
changeset
|
203 (while (and x-invocation-args |
7584a510ad85
(x-handle-args): Stop arg processing
Richard M. Stallman <rms@gnu.org>
parents:
15815
diff
changeset
|
204 (not (equal (car x-invocation-args) "--"))) |
273 | 205 (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
|
206 (orig-this-switch this-switch) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
207 completion argval aelt handler) |
273 | 208 (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
|
209 ;; 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
|
210 ;; 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
|
211 (if (string-match "^--[^=]*=" this-switch) |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
212 (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
|
213 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
|
214 ;; Complete names of long options. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
215 (if (string-match "^--" this-switch) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
216 (progn |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
217 (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
|
218 (if (eq completion t) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
219 ;; Exact match for long option. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
220 nil |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
221 (if (stringp completion) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
222 (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
|
223 ;; Check for abbreviated long option. |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
224 (or elt |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
225 (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
|
226 (setq this-switch completion)))))) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
227 (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
|
228 (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
|
229 (if handler |
10027
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
230 (if argval |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
231 (let ((x-invocation-args |
bb1027a75918
(x-option-alist): New variable now holds
Richard M. Stallman <rms@gnu.org>
parents:
9681
diff
changeset
|
232 (cons argval x-invocation-args))) |
13891
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
233 (funcall handler this-switch)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
234 (funcall handler this-switch)) |
0e813fc58516
(x-handle-switch, x-handle-numeric-switch)
Richard M. Stallman <rms@gnu.org>
parents:
13376
diff
changeset
|
235 (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
|
236 (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
|
237 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
238 ;; 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
|
239 ;; 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
|
240 (defun x-handle-smid (switch) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
241 (or (consp x-invocation-args) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
242 (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
|
243 (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
|
244 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
|
245 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
246 (defvar emacs-save-session-functions nil |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
247 "Functions to run when a save-session event occurs. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
248 The functions does not get any argument. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
249 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
|
250 window system shutdown should be aborted. |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
251 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
252 See also `emacs-session-save'.") |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
253 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
254 (defun emacs-session-filename (session-id) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
255 "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
|
256 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
|
257 a file in the home directory." |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
258 (let ((basename (concat "session." session-id)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
259 (emacs-dir "~/.emacs.d/")) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
260 (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
|
261 (concat emacs-dir basename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
262 (concat "~/.emacs-" basename))))) |
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-save () |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
265 "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
|
266 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
|
267 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
268 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
|
269 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
|
270 `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
|
271 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
|
272 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
|
273 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
|
274 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
|
275 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
276 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
|
277 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
|
278 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
|
279 (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
|
280 (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
|
281 (when (file-exists-p filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
282 (delete-file filename)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
283 (with-current-buffer buf |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
284 (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
|
285 ;; A return of t means cancel the shutdown. |
43820
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
286 (run-hook-with-args-until-success |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
287 'emacs-save-session-functions) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
288 (error t)))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
289 (unless cancel-shutdown |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
290 (write-file filename)) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
291 (kill-buffer buf) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
292 cancel-shutdown)))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
293 |
43866
9ec4ee6f4529
(emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43820
diff
changeset
|
294 (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
|
295 "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
|
296 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
|
297 exists." |
43866
9ec4ee6f4529
(emacs-session-restore): Take previous id as an argument.
Jan Djärv <jan.h.d@swipnet.se>
parents:
43820
diff
changeset
|
298 (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
|
299 (when (file-exists-p filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
300 (load-file filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
301 (delete-file filename) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
302 (message "Restored session data")))) |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
303 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
304 |
41972a678f62
(x-handle-smid): New function.
Jan Djärv <jan.h.d@swipnet.se>
parents:
42932
diff
changeset
|
305 |
54 | 306 |
307 ;; | |
308 ;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them. | |
309 ;; | |
310 | |
311 (defconst x-pointer-X-cursor 0) | |
312 (defconst x-pointer-arrow 2) | |
313 (defconst x-pointer-based-arrow-down 4) | |
314 (defconst x-pointer-based-arrow-up 6) | |
315 (defconst x-pointer-boat 8) | |
316 (defconst x-pointer-bogosity 10) | |
317 (defconst x-pointer-bottom-left-corner 12) | |
318 (defconst x-pointer-bottom-right-corner 14) | |
319 (defconst x-pointer-bottom-side 16) | |
320 (defconst x-pointer-bottom-tee 18) | |
321 (defconst x-pointer-box-spiral 20) | |
322 (defconst x-pointer-center-ptr 22) | |
323 (defconst x-pointer-circle 24) | |
324 (defconst x-pointer-clock 26) | |
325 (defconst x-pointer-coffee-mug 28) | |
326 (defconst x-pointer-cross 30) | |
327 (defconst x-pointer-cross-reverse 32) | |
328 (defconst x-pointer-crosshair 34) | |
329 (defconst x-pointer-diamond-cross 36) | |
330 (defconst x-pointer-dot 38) | |
331 (defconst x-pointer-dotbox 40) | |
332 (defconst x-pointer-double-arrow 42) | |
333 (defconst x-pointer-draft-large 44) | |
334 (defconst x-pointer-draft-small 46) | |
335 (defconst x-pointer-draped-box 48) | |
336 (defconst x-pointer-exchange 50) | |
337 (defconst x-pointer-fleur 52) | |
338 (defconst x-pointer-gobbler 54) | |
339 (defconst x-pointer-gumby 56) | |
340 (defconst x-pointer-hand1 58) | |
341 (defconst x-pointer-hand2 60) | |
342 (defconst x-pointer-heart 62) | |
343 (defconst x-pointer-icon 64) | |
344 (defconst x-pointer-iron-cross 66) | |
345 (defconst x-pointer-left-ptr 68) | |
346 (defconst x-pointer-left-side 70) | |
347 (defconst x-pointer-left-tee 72) | |
348 (defconst x-pointer-leftbutton 74) | |
349 (defconst x-pointer-ll-angle 76) | |
350 (defconst x-pointer-lr-angle 78) | |
351 (defconst x-pointer-man 80) | |
352 (defconst x-pointer-middlebutton 82) | |
353 (defconst x-pointer-mouse 84) | |
354 (defconst x-pointer-pencil 86) | |
355 (defconst x-pointer-pirate 88) | |
356 (defconst x-pointer-plus 90) | |
357 (defconst x-pointer-question-arrow 92) | |
358 (defconst x-pointer-right-ptr 94) | |
359 (defconst x-pointer-right-side 96) | |
360 (defconst x-pointer-right-tee 98) | |
361 (defconst x-pointer-rightbutton 100) | |
362 (defconst x-pointer-rtl-logo 102) | |
363 (defconst x-pointer-sailboat 104) | |
364 (defconst x-pointer-sb-down-arrow 106) | |
365 (defconst x-pointer-sb-h-double-arrow 108) | |
366 (defconst x-pointer-sb-left-arrow 110) | |
367 (defconst x-pointer-sb-right-arrow 112) | |
368 (defconst x-pointer-sb-up-arrow 114) | |
369 (defconst x-pointer-sb-v-double-arrow 116) | |
370 (defconst x-pointer-shuttle 118) | |
371 (defconst x-pointer-sizing 120) | |
372 (defconst x-pointer-spider 122) | |
373 (defconst x-pointer-spraycan 124) | |
374 (defconst x-pointer-star 126) | |
375 (defconst x-pointer-target 128) | |
376 (defconst x-pointer-tcross 130) | |
377 (defconst x-pointer-top-left-arrow 132) | |
378 (defconst x-pointer-top-left-corner 134) | |
379 (defconst x-pointer-top-right-corner 136) | |
380 (defconst x-pointer-top-side 138) | |
381 (defconst x-pointer-top-tee 140) | |
382 (defconst x-pointer-trek 142) | |
383 (defconst x-pointer-ul-angle 144) | |
384 (defconst x-pointer-umbrella 146) | |
385 (defconst x-pointer-ur-angle 148) | |
386 (defconst x-pointer-watch 150) | |
387 (defconst x-pointer-xterm 152) | |
388 | |
389 ;; | |
390 ;; Available colors | |
391 ;; | |
392 | |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
393 (defvar x-colors '("LightGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
394 "light green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
395 "DarkRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
396 "dark red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
397 "DarkMagenta" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
398 "dark magenta" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
399 "DarkCyan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
400 "dark cyan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
401 "DarkBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
402 "dark blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
403 "DarkGray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
404 "dark gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
405 "DarkGrey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
406 "dark grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
407 "grey100" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
408 "gray100" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
409 "grey99" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
410 "gray99" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
411 "grey98" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
412 "gray98" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
413 "grey97" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
414 "gray97" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
415 "grey96" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
416 "gray96" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
417 "grey95" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
418 "gray95" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
419 "grey94" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
420 "gray94" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
421 "grey93" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
422 "gray93" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
423 "grey92" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
424 "gray92" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
425 "grey91" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
426 "gray91" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
427 "grey90" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
428 "gray90" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
429 "grey89" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
430 "gray89" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
431 "grey88" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
432 "gray88" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
433 "grey87" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
434 "gray87" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
435 "grey86" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
436 "gray86" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
437 "grey85" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
438 "gray85" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
439 "grey84" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
440 "gray84" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
441 "grey83" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
442 "gray83" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
443 "grey82" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
444 "gray82" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
445 "grey81" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
446 "gray81" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
447 "grey80" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
448 "gray80" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
449 "grey79" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
450 "gray79" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
451 "grey78" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
452 "gray78" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
453 "grey77" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
454 "gray77" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
455 "grey76" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
456 "gray76" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
457 "grey75" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
458 "gray75" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
459 "grey74" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
460 "gray74" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
461 "grey73" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
462 "gray73" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
463 "grey72" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
464 "gray72" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
465 "grey71" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
466 "gray71" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
467 "grey70" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
468 "gray70" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
469 "grey69" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
470 "gray69" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
471 "grey68" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
472 "gray68" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
473 "grey67" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
474 "gray67" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
475 "grey66" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
476 "gray66" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
477 "grey65" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
478 "gray65" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
479 "grey64" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
480 "gray64" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
481 "grey63" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
482 "gray63" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
483 "grey62" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
484 "gray62" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
485 "grey61" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
486 "gray61" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
487 "grey60" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
488 "gray60" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
489 "grey59" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
490 "gray59" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
491 "grey58" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
492 "gray58" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
493 "grey57" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
494 "gray57" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
495 "grey56" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
496 "gray56" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
497 "grey55" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
498 "gray55" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
499 "grey54" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
500 "gray54" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
501 "grey53" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
502 "gray53" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
503 "grey52" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
504 "gray52" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
505 "grey51" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
506 "gray51" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
507 "grey50" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
508 "gray50" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
509 "grey49" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
510 "gray49" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
511 "grey48" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
512 "gray48" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
513 "grey47" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
514 "gray47" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
515 "grey46" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
516 "gray46" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
517 "grey45" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
518 "gray45" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
519 "grey44" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
520 "gray44" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
521 "grey43" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
522 "gray43" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
523 "grey42" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
524 "gray42" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
525 "grey41" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
526 "gray41" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
527 "grey40" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
528 "gray40" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
529 "grey39" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
530 "gray39" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
531 "grey38" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
532 "gray38" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
533 "grey37" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
534 "gray37" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
535 "grey36" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
536 "gray36" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
537 "grey35" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
538 "gray35" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
539 "grey34" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
540 "gray34" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
541 "grey33" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
542 "gray33" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
543 "grey32" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
544 "gray32" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
545 "grey31" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
546 "gray31" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
547 "grey30" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
548 "gray30" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
549 "grey29" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
550 "gray29" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
551 "grey28" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
552 "gray28" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
553 "grey27" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
554 "gray27" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
555 "grey26" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
556 "gray26" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
557 "grey25" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
558 "gray25" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
559 "grey24" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
560 "gray24" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
561 "grey23" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
562 "gray23" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
563 "grey22" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
564 "gray22" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
565 "grey21" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
566 "gray21" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
567 "grey20" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
568 "gray20" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
569 "grey19" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
570 "gray19" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
571 "grey18" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
572 "gray18" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
573 "grey17" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
574 "gray17" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
575 "grey16" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
576 "gray16" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
577 "grey15" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
578 "gray15" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
579 "grey14" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
580 "gray14" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
581 "grey13" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
582 "gray13" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
583 "grey12" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
584 "gray12" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
585 "grey11" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
586 "gray11" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
587 "grey10" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
588 "gray10" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
589 "grey9" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
590 "gray9" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
591 "grey8" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
592 "gray8" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
593 "grey7" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
594 "gray7" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
595 "grey6" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
596 "gray6" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
597 "grey5" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
598 "gray5" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
599 "grey4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
600 "gray4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
601 "grey3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
602 "gray3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
603 "grey2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
604 "gray2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
605 "grey1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
606 "gray1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
607 "grey0" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
608 "gray0" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
609 "thistle4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
610 "thistle3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
611 "thistle2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
612 "thistle1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
613 "MediumPurple4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
614 "MediumPurple3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
615 "MediumPurple2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
616 "MediumPurple1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
617 "purple4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
618 "purple3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
619 "purple2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
620 "purple1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
621 "DarkOrchid4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
622 "DarkOrchid3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
623 "DarkOrchid2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
624 "DarkOrchid1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
625 "MediumOrchid4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
626 "MediumOrchid3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
627 "MediumOrchid2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
628 "MediumOrchid1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
629 "plum4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
630 "plum3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
631 "plum2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
632 "plum1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
633 "orchid4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
634 "orchid3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
635 "orchid2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
636 "orchid1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
637 "magenta4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
638 "magenta3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
639 "magenta2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
640 "magenta1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
641 "VioletRed4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
642 "VioletRed3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
643 "VioletRed2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
644 "VioletRed1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
645 "maroon4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
646 "maroon3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
647 "maroon2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
648 "maroon1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
649 "PaleVioletRed4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
650 "PaleVioletRed3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
651 "PaleVioletRed2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
652 "PaleVioletRed1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
653 "LightPink4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
654 "LightPink3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
655 "LightPink2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
656 "LightPink1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
657 "pink4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
658 "pink3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
659 "pink2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
660 "pink1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
661 "HotPink4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
662 "HotPink3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
663 "HotPink2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
664 "HotPink1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
665 "DeepPink4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
666 "DeepPink3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
667 "DeepPink2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
668 "DeepPink1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
669 "red4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
670 "red3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
671 "red2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
672 "red1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
673 "OrangeRed4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
674 "OrangeRed3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
675 "OrangeRed2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
676 "OrangeRed1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
677 "tomato4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
678 "tomato3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
679 "tomato2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
680 "tomato1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
681 "coral4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
682 "coral3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
683 "coral2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
684 "coral1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
685 "DarkOrange4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
686 "DarkOrange3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
687 "DarkOrange2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
688 "DarkOrange1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
689 "orange4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
690 "orange3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
691 "orange2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
692 "orange1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
693 "LightSalmon4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
694 "LightSalmon3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
695 "LightSalmon2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
696 "LightSalmon1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
697 "salmon4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
698 "salmon3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
699 "salmon2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
700 "salmon1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
701 "brown4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
702 "brown3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
703 "brown2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
704 "brown1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
705 "firebrick4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
706 "firebrick3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
707 "firebrick2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
708 "firebrick1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
709 "chocolate4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
710 "chocolate3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
711 "chocolate2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
712 "chocolate1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
713 "tan4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
714 "tan3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
715 "tan2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
716 "tan1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
717 "wheat4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
718 "wheat3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
719 "wheat2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
720 "wheat1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
721 "burlywood4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
722 "burlywood3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
723 "burlywood2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
724 "burlywood1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
725 "sienna4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
726 "sienna3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
727 "sienna2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
728 "sienna1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
729 "IndianRed4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
730 "IndianRed3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
731 "IndianRed2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
732 "IndianRed1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
733 "RosyBrown4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
734 "RosyBrown3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
735 "RosyBrown2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
736 "RosyBrown1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
737 "DarkGoldenrod4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
738 "DarkGoldenrod3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
739 "DarkGoldenrod2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
740 "DarkGoldenrod1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
741 "goldenrod4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
742 "goldenrod3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
743 "goldenrod2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
744 "goldenrod1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
745 "gold4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
746 "gold3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
747 "gold2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
748 "gold1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
749 "yellow4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
750 "yellow3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
751 "yellow2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
752 "yellow1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
753 "LightYellow4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
754 "LightYellow3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
755 "LightYellow2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
756 "LightYellow1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
757 "LightGoldenrod4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
758 "LightGoldenrod3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
759 "LightGoldenrod2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
760 "LightGoldenrod1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
761 "khaki4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
762 "khaki3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
763 "khaki2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
764 "khaki1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
765 "DarkOliveGreen4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
766 "DarkOliveGreen3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
767 "DarkOliveGreen2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
768 "DarkOliveGreen1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
769 "OliveDrab4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
770 "OliveDrab3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
771 "OliveDrab2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
772 "OliveDrab1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
773 "chartreuse4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
774 "chartreuse3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
775 "chartreuse2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
776 "chartreuse1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
777 "green4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
778 "green3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
779 "green2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
780 "green1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
781 "SpringGreen4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
782 "SpringGreen3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
783 "SpringGreen2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
784 "SpringGreen1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
785 "PaleGreen4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
786 "PaleGreen3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
787 "PaleGreen2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
788 "PaleGreen1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
789 "SeaGreen4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
790 "SeaGreen3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
791 "SeaGreen2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
792 "SeaGreen1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
793 "DarkSeaGreen4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
794 "DarkSeaGreen3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
795 "DarkSeaGreen2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
796 "DarkSeaGreen1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
797 "aquamarine4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
798 "aquamarine3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
799 "aquamarine2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
800 "aquamarine1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
801 "DarkSlateGray4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
802 "DarkSlateGray3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
803 "DarkSlateGray2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
804 "DarkSlateGray1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
805 "cyan4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
806 "cyan3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
807 "cyan2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
808 "cyan1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
809 "turquoise4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
810 "turquoise3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
811 "turquoise2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
812 "turquoise1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
813 "CadetBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
814 "CadetBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
815 "CadetBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
816 "CadetBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
817 "PaleTurquoise4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
818 "PaleTurquoise3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
819 "PaleTurquoise2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
820 "PaleTurquoise1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
821 "LightCyan4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
822 "LightCyan3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
823 "LightCyan2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
824 "LightCyan1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
825 "LightBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
826 "LightBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
827 "LightBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
828 "LightBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
829 "LightSteelBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
830 "LightSteelBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
831 "LightSteelBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
832 "LightSteelBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
833 "SlateGray4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
834 "SlateGray3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
835 "SlateGray2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
836 "SlateGray1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
837 "LightSkyBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
838 "LightSkyBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
839 "LightSkyBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
840 "LightSkyBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
841 "SkyBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
842 "SkyBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
843 "SkyBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
844 "SkyBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
845 "DeepSkyBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
846 "DeepSkyBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
847 "DeepSkyBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
848 "DeepSkyBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
849 "SteelBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
850 "SteelBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
851 "SteelBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
852 "SteelBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
853 "DodgerBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
854 "DodgerBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
855 "DodgerBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
856 "DodgerBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
857 "blue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
858 "blue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
859 "blue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
860 "blue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
861 "RoyalBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
862 "RoyalBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
863 "RoyalBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
864 "RoyalBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
865 "SlateBlue4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
866 "SlateBlue3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
867 "SlateBlue2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
868 "SlateBlue1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
869 "azure4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
870 "azure3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
871 "azure2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
872 "azure1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
873 "MistyRose4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
874 "MistyRose3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
875 "MistyRose2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
876 "MistyRose1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
877 "LavenderBlush4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
878 "LavenderBlush3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
879 "LavenderBlush2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
880 "LavenderBlush1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
881 "honeydew4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
882 "honeydew3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
883 "honeydew2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
884 "honeydew1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
885 "ivory4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
886 "ivory3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
887 "ivory2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
888 "ivory1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
889 "cornsilk4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
890 "cornsilk3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
891 "cornsilk2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
892 "cornsilk1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
893 "LemonChiffon4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
894 "LemonChiffon3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
895 "LemonChiffon2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
896 "LemonChiffon1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
897 "NavajoWhite4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
898 "NavajoWhite3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
899 "NavajoWhite2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
900 "NavajoWhite1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
901 "PeachPuff4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
902 "PeachPuff3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
903 "PeachPuff2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
904 "PeachPuff1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
905 "bisque4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
906 "bisque3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
907 "bisque2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
908 "bisque1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
909 "AntiqueWhite4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
910 "AntiqueWhite3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
911 "AntiqueWhite2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
912 "AntiqueWhite1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
913 "seashell4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
914 "seashell3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
915 "seashell2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
916 "seashell1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
917 "snow4" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
918 "snow3" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
919 "snow2" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
920 "snow1" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
921 "thistle" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
922 "MediumPurple" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
923 "medium purple" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
924 "purple" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
925 "BlueViolet" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
926 "blue violet" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
927 "DarkViolet" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
928 "dark violet" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
929 "DarkOrchid" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
930 "dark orchid" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
931 "MediumOrchid" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
932 "medium orchid" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
933 "orchid" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
934 "plum" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
935 "violet" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
936 "magenta" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
937 "VioletRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
938 "violet red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
939 "MediumVioletRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
940 "medium violet red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
941 "maroon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
942 "PaleVioletRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
943 "pale violet red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
944 "LightPink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
945 "light pink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
946 "pink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
947 "DeepPink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
948 "deep pink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
949 "HotPink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
950 "hot pink" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
951 "red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
952 "OrangeRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
953 "orange red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
954 "tomato" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
955 "LightCoral" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
956 "light coral" |
54 | 957 "coral" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
958 "DarkOrange" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
959 "dark orange" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
960 "orange" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
961 "LightSalmon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
962 "light salmon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
963 "salmon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
964 "DarkSalmon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
965 "dark salmon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
966 "brown" |
54 | 967 "firebrick" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
968 "chocolate" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
969 "tan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
970 "SandyBrown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
971 "sandy brown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
972 "wheat" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
973 "beige" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
974 "burlywood" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
975 "peru" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
976 "sienna" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
977 "SaddleBrown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
978 "saddle brown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
979 "IndianRed" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
980 "indian red" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
981 "RosyBrown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
982 "rosy brown" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
983 "DarkGoldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
984 "dark goldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
985 "goldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
986 "LightGoldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
987 "light goldenrod" |
54 | 988 "gold" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
989 "yellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
990 "LightYellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
991 "light yellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
992 "LightGoldenrodYellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
993 "light goldenrod yellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
994 "PaleGoldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
995 "pale goldenrod" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
996 "khaki" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
997 "DarkKhaki" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
998 "dark khaki" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
999 "OliveDrab" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1000 "olive drab" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1001 "ForestGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1002 "forest green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1003 "YellowGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1004 "yellow green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1005 "LimeGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1006 "lime green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1007 "GreenYellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1008 "green yellow" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1009 "MediumSpringGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1010 "medium spring green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1011 "chartreuse" |
54 | 1012 "green" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1013 "LawnGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1014 "lawn green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1015 "SpringGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1016 "spring green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1017 "PaleGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1018 "pale green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1019 "LightSeaGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1020 "light sea green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1021 "MediumSeaGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1022 "medium sea green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1023 "SeaGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1024 "sea green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1025 "DarkSeaGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1026 "dark sea green" |
54 | 1027 "DarkOliveGreen" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1028 "dark olive green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1029 "DarkGreen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1030 "dark green" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1031 "aquamarine" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1032 "MediumAquamarine" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1033 "medium aquamarine" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1034 "CadetBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1035 "cadet blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1036 "LightCyan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1037 "light cyan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1038 "cyan" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1039 "turquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1040 "MediumTurquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1041 "medium turquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1042 "DarkTurquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1043 "dark turquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1044 "PaleTurquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1045 "pale turquoise" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1046 "PowderBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1047 "powder blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1048 "LightBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1049 "light blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1050 "LightSteelBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1051 "light steel blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1052 "SteelBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1053 "steel blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1054 "LightSkyBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1055 "light sky blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1056 "SkyBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1057 "sky blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1058 "DeepSkyBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1059 "deep sky blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1060 "DodgerBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1061 "dodger blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1062 "blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1063 "RoyalBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1064 "royal blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1065 "MediumBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1066 "medium blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1067 "LightSlateBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1068 "light slate blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1069 "MediumSlateBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1070 "medium slate blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1071 "SlateBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1072 "slate blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1073 "DarkSlateBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1074 "dark slate blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1075 "CornflowerBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1076 "cornflower blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1077 "NavyBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1078 "navy blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1079 "navy" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1080 "MidnightBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1081 "midnight blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1082 "LightGray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1083 "light gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1084 "LightGrey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1085 "light grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1086 "grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1087 "gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1088 "LightSlateGrey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1089 "light slate grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1090 "LightSlateGray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1091 "light slate gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1092 "SlateGrey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1093 "slate grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1094 "SlateGray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1095 "slate gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1096 "DimGrey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1097 "dim grey" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1098 "DimGray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1099 "dim gray" |
54 | 1100 "DarkSlateGrey" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1101 "dark slate grey" |
54 | 1102 "DarkSlateGray" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1103 "dark slate gray" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1104 "black" |
54 | 1105 "white" |
29555
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1106 "MistyRose" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1107 "misty rose" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1108 "LavenderBlush" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1109 "lavender blush" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1110 "lavender" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1111 "AliceBlue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1112 "alice blue" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1113 "azure" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1114 "MintCream" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1115 "mint cream" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1116 "honeydew" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1117 "seashell" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1118 "LemonChiffon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1119 "lemon chiffon" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1120 "ivory" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1121 "cornsilk" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1122 "moccasin" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1123 "NavajoWhite" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1124 "navajo white" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1125 "PeachPuff" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1126 "peach puff" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1127 "bisque" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1128 "BlanchedAlmond" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1129 "blanched almond" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1130 "PapayaWhip" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1131 "papaya whip" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1132 "AntiqueWhite" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1133 "antique white" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1134 "linen" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1135 "OldLace" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1136 "old lace" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1137 "FloralWhite" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1138 "floral white" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1139 "gainsboro" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1140 "WhiteSmoke" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1141 "white smoke" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1142 "GhostWhite" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1143 "ghost white" |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1144 "snow") |
ec45256eb961
(x-colors): Add colors from recent rgb.txt.
Gerd Moellmann <gerd@gnu.org>
parents:
28217
diff
changeset
|
1145 "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
|
1146 XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") |
54 | 1147 |
26736
a0674327c167
Changes for automatic remapping of X colors on terminal frames:
Eli Zaretskii <eliz@gnu.org>
parents:
23903
diff
changeset
|
1148 (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
|
1149 "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
|
1150 (or frame (setq frame (selected-frame))) |
54 | 1151 (let ((all-colors x-colors) |
1152 (this-color nil) | |
1153 (defined-colors nil)) | |
1154 (while all-colors | |
1155 (setq this-color (car all-colors) | |
1156 all-colors (cdr all-colors)) | |
27101
a5791b2ee668
(xw-defined-colors): Call color-supported-p,
Eli Zaretskii <eliz@gnu.org>
parents:
26736
diff
changeset
|
1157 (and (color-supported-p this-color frame t) |
54 | 1158 (setq defined-colors (cons this-color defined-colors)))) |
1159 defined-colors)) | |
396 | 1160 |
1161 ;;;; Function keys | |
1162 | |
4313
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1163 (defun 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
|
1164 "Iconify the selected frame, or deiconify if it's currently an icon." |
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1165 (interactive) |
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1166 (if (eq (cdr (assq 'visibility (frame-parameters))) t) |
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1167 (iconify-frame) |
6141
fefa088fc7f9
(iconify-or-deiconify-frame): Don't make invisible before making visible.
Karl Heuer <kwzh@gnu.org>
parents:
6137
diff
changeset
|
1168 (make-frame-visible))) |
4313
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1169 |
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1170 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame |
87472f1eb031
(iconify-or-deiconify-frame): New function. Use it for C-z.
Richard M. Stallman <rms@gnu.org>
parents:
4306
diff
changeset
|
1171 global-map) |
1546 | 1172 |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1173 ;; Map certain keypad keys into ASCII characters |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1174 ;; that people usually expect. |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1175 (define-key function-key-map [backspace] [127]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1176 (define-key function-key-map [delete] [127]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1177 (define-key function-key-map [tab] [?\t]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1178 (define-key function-key-map [linefeed] [?\n]) |
12970
b5262e218fa8
(function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents:
12556
diff
changeset
|
1179 (define-key function-key-map [clear] [?\C-l]) |
b5262e218fa8
(function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents:
12556
diff
changeset
|
1180 (define-key function-key-map [return] [?\C-m]) |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1181 (define-key function-key-map [escape] [?\e]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1182 (define-key function-key-map [M-backspace] [?\M-\d]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1183 (define-key function-key-map [M-delete] [?\M-\d]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1184 (define-key function-key-map [M-tab] [?\M-\t]) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1185 (define-key function-key-map [M-linefeed] [?\M-\n]) |
12970
b5262e218fa8
(function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents:
12556
diff
changeset
|
1186 (define-key function-key-map [M-clear] [?\M-\C-l]) |
b5262e218fa8
(function-key-map): Consistently map CLEAR to C-l.
Richard M. Stallman <rms@gnu.org>
parents:
12556
diff
changeset
|
1187 (define-key function-key-map [M-return] [?\M-\C-m]) |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1188 (define-key function-key-map [M-escape] [?\M-\e]) |
17244
6d46f493d819
(function-key-map): Define iso-lefttab.
Richard M. Stallman <rms@gnu.org>
parents:
17169
diff
changeset
|
1189 (define-key function-key-map [iso-lefttab] [backtab]) |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1190 |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1191 ;; These tell read-char how to convert |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1192 ;; these special chars to ASCII. |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1193 (put 'backspace 'ascii-character 127) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1194 (put 'delete 'ascii-character 127) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1195 (put 'tab 'ascii-character ?\t) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1196 (put 'linefeed 'ascii-character ?\n) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1197 (put 'clear 'ascii-character 12) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1198 (put 'return 'ascii-character 13) |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1199 (put 'escape 'ascii-character ?\e) |
5515
920b55d2057b
(vendor-key-syms): Set this variable.
Richard M. Stallman <rms@gnu.org>
parents:
4314
diff
changeset
|
1200 |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1201 (defun vendor-specific-keysyms (vendor) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1202 "Return the appropriate value of system-key-alist for VENDOR. |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1203 VENDOR is a string containing the name of the X Server's vendor, |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1204 as returned by (x-server-vendor)." |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1205 (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
|
1206 '((65280 . linedel) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1207 (65281 . chardel) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1208 (65282 . copy) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1209 (65283 . cut) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1210 (65284 . paste) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1211 (65285 . move) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1212 (65286 . grow) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1213 (65287 . cmd) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1214 (65288 . shell) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1215 (65289 . leftbar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1216 (65290 . rightbar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1217 (65291 . leftbox) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1218 (65292 . rightbox) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1219 (65293 . upbox) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1220 (65294 . downbox) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1221 (65295 . pop) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1222 (65296 . read) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1223 (65297 . edit) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1224 (65298 . save) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1225 (65299 . exit) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1226 (65300 . repeat))) |
11902
fab32f80adf5
(vendor-specific-keysyms): Add second spelling for HP.
Karl Heuer <kwzh@gnu.org>
parents:
11821
diff
changeset
|
1227 ((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
|
1228 (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
|
1229 '(( 168 . mute-acute) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1230 ( 169 . mute-grave) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1231 ( 170 . mute-asciicircum) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1232 ( 171 . mute-diaeresis) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1233 ( 172 . mute-asciitilde) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1234 ( 175 . lira) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1235 ( 190 . guilder) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1236 ( 252 . block) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1237 ( 256 . longminus) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1238 (65388 . reset) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1239 (65389 . system) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1240 (65390 . user) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1241 (65391 . clearline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1242 (65392 . insertline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1243 (65393 . deleteline) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1244 (65394 . insertchar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1245 (65395 . deletechar) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1246 (65396 . backtab) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1247 (65397 . kp-backtab))) |
12057
562d3062b82e
(vendor-specific-keysyms): Recognize "X Consortium".
Karl Heuer <kwzh@gnu.org>
parents:
11902
diff
changeset
|
1248 ((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
|
1249 (string-equal vendor "X Consortium")) |
12556 | 1250 '((392976 . f36) |
1251 (392977 . f37) | |
11821
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1252 (393056 . req) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1253 ;; These are for Sun under X11R6 |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1254 (393072 . props) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1255 (393073 . front) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1256 (393074 . copy) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1257 (393075 . open) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1258 (393076 . paste) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1259 (393077 . cut))) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1260 (t |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1261 ;; 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
|
1262 '((65280 . remove))))) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1263 |
54 | 1264 |
1546 | 1265 ;;;; Selections and cut buffers |
707 | 1266 |
727 | 1267 ;;; We keep track of the last text selected here, so we can check the |
1268 ;;; current selection against it, and avoid passing back our own 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
|
1269 ;;; from x-cut-buffer-or-selection-value. We track all three |
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
|
1270 ;;; seperately in case another X application only sets one of them |
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
|
1271 ;;; (say the the cut buffer) we aren't fooled by the PRIMARY 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
|
1272 ;;; CLIPBOARD selection staying the same. |
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
|
1273 (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
|
1274 "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
|
1275 pasted 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
|
1276 (defvar 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
|
1277 "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
|
1278 pasted 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
|
1279 (defvar x-last-selected-text-cut 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
|
1280 "The vaue of the X cut buffer 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
|
1281 pasted text.") |
727 | 1282 |
4273
79dc5c3370f8
(x-select-text): Never set the CLIPBOARD selection.
Richard M. Stallman <rms@gnu.org>
parents:
4246
diff
changeset
|
1283 ;;; It is said that overlarge strings are slow to put into the cut buffer. |
4306
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
1284 ;;; Note this value is overridden below. |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
1285 (defvar x-cut-buffer-max 20000 |
4273
79dc5c3370f8
(x-select-text): Never set the CLIPBOARD selection.
Richard M. Stallman <rms@gnu.org>
parents:
4246
diff
changeset
|
1286 "Max number of characters to put in 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
|
1287 |
33917
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1288 (defcustom x-select-enable-clipboard nil |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
1289 "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
|
1290 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
|
1291 :type 'boolean |
8fdc1e5e72f3
(x-select-enable-clipboard): Customize (per lispref).
Dave Love <fx@gnu.org>
parents:
29555
diff
changeset
|
1292 :group 'killing) |
6698
b107e54218fe
(x-select-enable-clipboard): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
6399
diff
changeset
|
1293 |
4273
79dc5c3370f8
(x-select-text): Never set the CLIPBOARD selection.
Richard M. Stallman <rms@gnu.org>
parents:
4246
diff
changeset
|
1294 ;;; Make TEXT, a string, the primary X selection. |
707 | 1295 ;;; Also, set the value of X cut buffer 0, for backward compatibility |
1817
5c2bdeb13f68
x-selection-value has been renamed to x-selection.
Jim Blandy <jimb@redhat.com>
parents:
1772
diff
changeset
|
1296 ;;; with older X applications. |
39400
e69aa66ec7cc
Update Stephen Gildea's mail address.
Eli Zaretskii <eliz@gnu.org>
parents:
36582
diff
changeset
|
1297 ;;; gildea@stop.mail-abuse.org says it's not desirable to put kills |
4273
79dc5c3370f8
(x-select-text): Never set the CLIPBOARD selection.
Richard M. Stallman <rms@gnu.org>
parents:
4246
diff
changeset
|
1298 ;;; in the clipboard. |
3036
98f500ca5593
(x-select-text): New arg PUSH.
Richard M. Stallman <rms@gnu.org>
parents:
2808
diff
changeset
|
1299 (defun x-select-text (text &optional push) |
4236
8e14db210975
(x-select-text): Limit size of text sent to cut buffer.
Richard M. Stallman <rms@gnu.org>
parents:
4132
diff
changeset
|
1300 ;; 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
|
1301 ;; 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
|
1302 (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
|
1303 (x-set-cut-buffer "" push) |
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
|
1304 (setq x-last-selected-text-cut "")) |
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
|
1305 (t |
4273
79dc5c3370f8
(x-select-text): Never set the CLIPBOARD selection.
Richard M. Stallman <rms@gnu.org>
parents:
4246
diff
changeset
|
1306 (x-set-cut-buffer text push) |
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
|
1307 (setq x-last-selected-text-cut text))) |
2366
ed9b74c46fb9
* x-win.el: Update copyright to 1993.
Jim Blandy <jimb@redhat.com>
parents:
2157
diff
changeset
|
1308 (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
|
1309 (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
|
1310 (when x-select-enable-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
|
1311 (x-set-selection 'CLIPBOARD 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
|
1312 (setq x-last-selected-text-clipboard 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
|
1313 ) |
643 | 1314 |
6399
96ec63c4a347
(x-cut-buffer-or-selection-value): Check for error from x-get-selection.
Karl Heuer <kwzh@gnu.org>
parents:
6319
diff
changeset
|
1315 ;;; Return the value of the current X selection. |
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
|
1316 ;;; Consult the selection, and the cut buffer. Treat empty strings |
6399
96ec63c4a347
(x-cut-buffer-or-selection-value): Check for error from x-get-selection.
Karl Heuer <kwzh@gnu.org>
parents:
6319
diff
changeset
|
1317 ;;; as if they were unset. |
17670 | 1318 ;;; If this function is called twice and finds the same text, |
1319 ;;; it returns nil the second time. This is so that a single | |
1320 ;;; selection won't be added to the kill ring over and over. | |
707 | 1321 (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
|
1322 (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
|
1323 (when x-select-enable-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
|
1324 ;; Don't die if x-get-selection signals an error. |
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
|
1325 (if (null clip-text) |
19178
fa3161c7360b
(x-cut-buffer-or-selection-value): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19112
diff
changeset
|
1326 (condition-case c |
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
|
1327 (setq clip-text (x-get-selection 'CLIPBOARD 'COMPOUND_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
|
1328 (error 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
|
1329 (if (null 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
|
1330 (condition-case c |
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
|
1331 (setq clip-text (x-get-selection 'CLIPBOARD 'STRING)) |
19178
fa3161c7360b
(x-cut-buffer-or-selection-value): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19112
diff
changeset
|
1332 (error 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
|
1333 (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
|
1334 |
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
|
1335 ;; 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
|
1336 ;; 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
|
1337 ;; cut/paste operation. |
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
|
1338 (setq 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
|
1339 (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
|
1340 ((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
|
1341 (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
|
1342 ((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
|
1343 ((string= clip-text x-last-selected-text-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
|
1344 ;; Record the newer string, |
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
|
1345 ;; 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
|
1346 (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
|
1347 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
|
1348 (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
|
1349 (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
|
1350 ) |
19112
3940bb7f5515
(x-cut-buffer-or-selection-value): Try both
Richard M. Stallman <rms@gnu.org>
parents:
19085
diff
changeset
|
1351 |
23903
7d1efca4eadc
(x-cut-buffer-or-selection-value):
Karl Heuer <kwzh@gnu.org>
parents:
23686
diff
changeset
|
1352 ;; Don't die if x-get-selection signals an error. |
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
|
1353 (if (null primary-text) |
23903
7d1efca4eadc
(x-cut-buffer-or-selection-value):
Karl Heuer <kwzh@gnu.org>
parents:
23686
diff
changeset
|
1354 (condition-case c |
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
|
1355 (setq primary-text (x-get-selection 'PRIMARY 'COMPOUND_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
|
1356 (error 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
|
1357 (if (null 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
|
1358 (condition-case c |
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
|
1359 (setq primary-text (x-get-selection 'PRIMARY 'STRING)) |
23903
7d1efca4eadc
(x-cut-buffer-or-selection-value):
Karl Heuer <kwzh@gnu.org>
parents:
23686
diff
changeset
|
1360 (error 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
|
1361 ;; 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
|
1362 ;; 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
|
1363 ;; cut/paste operation. |
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
|
1364 (setq 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
|
1365 (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
|
1366 ((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
|
1367 (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
|
1368 ((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
|
1369 ((string= primary-text x-last-selected-text-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
|
1370 ;; Record the newer string, |
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
|
1371 ;; 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
|
1372 (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
|
1373 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
|
1374 (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
|
1375 (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
|
1376 |
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
|
1377 (setq cut-text (x-get-cut-buffer 0)) |
1266 | 1378 |
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
|
1379 ;; 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
|
1380 ;; 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
|
1381 ;; cut/paste operation. |
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
|
1382 (setq 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
|
1383 (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
|
1384 ((or (not cut-text) (string= cut-text "")) |
ca555c0c4e07
(x-select-text, x-cut-buffer-or-selection-value): Check if any of the
Pavel Janík <Pavel@Janik.cz>
parents:
43869
diff
changeset
|
1385 (setq x-last-selected-text-cut 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
|
1386 ((eq cut-text x-last-selected-text-cut) 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
|
1387 ((string= cut-text x-last-selected-text-cut) |
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
|
1388 ;; Record the newer string, |
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
|
1389 ;; 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
|
1390 (setq x-last-selected-text-cut cut-text) |
1266 | 1391 nil) |
1392 (t | |
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
|
1393 (setq x-last-selected-text-cut 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
|
1394 |
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
|
1395 ;; 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
|
1396 ;; 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
|
1397 ;; 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
|
1398 ;; (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
|
1399 ;; |
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
|
1400 ;; 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
|
1401 ;; 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
|
1402 ;; 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
|
1403 ;; 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
|
1404 ;; 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
|
1405 ;; 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
|
1406 ;; 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
|
1407 ;; 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
|
1408 ;; saw multiple possible selections and ask the user which was 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
|
1409 ;; one they wanted. |
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
|
1410 ;; 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
|
1411 ;; 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
|
1412 ;; 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
|
1413 ;; 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
|
1414 ;; 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
|
1415 (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
|
1416 )) |
707 | 1417 |
1546 | 1418 |
1419 ;;; Do the actual X Windows setup here; the above code just defines | |
1420 ;;; functions and variables that we use now. | |
1421 | |
1422 (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
|
1423 |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1424 ;;; Make sure we have a valid resource name. |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1425 (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
|
1426 (let (i) |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1427 (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
|
1428 |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1429 ;; 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
|
1430 ;; 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
|
1431 (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
|
1432 (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
|
1433 |
9681
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1434 ;; For the benefit of older Emacses (19.27 and earlier) that are sharing |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1435 ;; the same lisp directory, don't pass the third argument unless we seem |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1436 ;; to have the multi-display support. |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1437 (if (fboundp 'x-close-connection) |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1438 (x-open-connection (or x-display-name |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1439 (setq x-display-name (getenv "DISPLAY"))) |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1440 x-command-line-resources |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1441 ;; Exit Emacs with fatal error if this fails. |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1442 t) |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1443 (x-open-connection (or x-display-name |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1444 (setq x-display-name (getenv "DISPLAY"))) |
06061a86c50a
Make previous change conditional.
Karl Heuer <kwzh@gnu.org>
parents:
9669
diff
changeset
|
1445 x-command-line-resources)) |
1546 | 1446 |
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
|
1447 (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
|
1448 |
4306
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
1449 (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
|
1450 x-cut-buffer-max)) |
2e51ffb537a8
(x-handle-iconic): New function.
Richard M. Stallman <rms@gnu.org>
parents:
4280
diff
changeset
|
1451 |
17169
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1452 (if (fboundp 'new-fontset) |
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1453 (progn |
17838
b726d209302c
Create bold, italic, bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17811
diff
changeset
|
1454 ;; Create the standard fontset. |
22163
58a65bc4156a
Generate style variants fontset for
Kenichi Handa <handa@m17n.org>
parents:
19178
diff
changeset
|
1455 (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
|
1456 |
17763
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1457 ;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...). |
17169
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1458 (create-fontset-from-x-resource) |
17014
828cf55629fc
Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents:
16835
diff
changeset
|
1459 |
17763
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1460 ;; Try to create a fontset from a font specification which comes |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1461 ;; from initial-frame-alist, default-frame-alist, or X resource. |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1462 ;; A font specification in command line argument (i.e. -fn XXXX) |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1463 ;; should be already in default-frame-alist as a `font' |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1464 ;; parameter. However, any font specifications in site-start |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1465 ;; library, user's init file (.emacs), and default.el are not |
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1466 ;; yet handled here. |
17014
828cf55629fc
Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents:
16835
diff
changeset
|
1467 |
17169
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1468 (let ((font (or (cdr (assq 'font initial-frame-alist)) |
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1469 (cdr (assq 'font default-frame-alist)) |
17763
9ba20cfe79f2
Create bold, italic, and bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17670
diff
changeset
|
1470 (x-get-resource "font" "Font"))) |
22671
5dee1f64801f
Fill weight and slant fields of a fontset
Kenichi Handa <handa@m17n.org>
parents:
22515
diff
changeset
|
1471 xlfd-fields resolved-name) |
17169
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1472 (if (and font |
018de297d2d5
Conditionalize the fontset code on
Richard M. Stallman <rms@gnu.org>
parents:
17014
diff
changeset
|
1473 (not (query-fontset font)) |
22671
5dee1f64801f
Fill weight and slant fields of a fontset
Kenichi Handa <handa@m17n.org>
parents:
22515
diff
changeset
|
1474 (setq resolved-name (x-resolve-font-name font)) |
22515
c7f3d4ec2c69
When creating a fontset from a specified ASCII
Kenichi Handa <handa@m17n.org>
parents:
22448
diff
changeset
|
1475 (setq xlfd-fields (x-decompose-font-name font))) |
17838
b726d209302c
Create bold, italic, bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17811
diff
changeset
|
1476 (if (string= "fontset" |
b726d209302c
Create bold, italic, bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17811
diff
changeset
|
1477 (aref xlfd-fields xlfd-regexp-registry-subnum)) |
b726d209302c
Create bold, italic, bold-italic variants of
Kenichi Handa <handa@m17n.org>
parents:
17811
diff
changeset
|
1478 (new-fontset font (x-complement-fontset-spec xlfd-fields nil)) |
22448
50b8918e3c60
While creating fontsets of style variants, pay
Kenichi Handa <handa@m17n.org>
parents:
22163
diff
changeset
|
1479 ;; Create a fontset from FONT. The fontset name is |
28217
876dc362394a
Fontsets related initialization is simplified.
Kenichi Handa <handa@m17n.org>
parents:
27101
diff
changeset
|
1480 ;; generated from FONT. |
876dc362394a
Fontsets related initialization is simplified.
Kenichi Handa <handa@m17n.org>
parents:
27101
diff
changeset
|
1481 (create-fontset-from-ascii-font font |
876dc362394a
Fontsets related initialization is simplified.
Kenichi Handa <handa@m17n.org>
parents:
27101
diff
changeset
|
1482 resolved-name "startup")))))) |
17014
828cf55629fc
Require fontset. Create fontsets from
Karl Heuer <kwzh@gnu.org>
parents:
16835
diff
changeset
|
1483 |
6792
385261457584
If server is a Sun, call menu-bar-enable-clipboard.
Richard M. Stallman <rms@gnu.org>
parents:
6698
diff
changeset
|
1484 ;; Sun expects the menu bar cut and paste commands to use the clipboard. |
10056
920dae6ba331
(Calling menu-bar-enable-clipboard): Be less selective matching Suns.
Richard M. Stallman <rms@gnu.org>
parents:
10027
diff
changeset
|
1485 ;; This has ,? to match both on Sunos and on Solaris. |
13376
56f14b5a7295
Don't require initial whitespace in vendor name.
Karl Heuer <kwzh@gnu.org>
parents:
12970
diff
changeset
|
1486 (if (string-match "Sun Microsystems,? Inc\\." |
6792
385261457584
If server is a Sun, call menu-bar-enable-clipboard.
Richard M. Stallman <rms@gnu.org>
parents:
6698
diff
changeset
|
1487 (x-server-vendor)) |
385261457584
If server is a Sun, call menu-bar-enable-clipboard.
Richard M. Stallman <rms@gnu.org>
parents:
6698
diff
changeset
|
1488 (menu-bar-enable-clipboard)) |
385261457584
If server is a Sun, call menu-bar-enable-clipboard.
Richard M. Stallman <rms@gnu.org>
parents:
6698
diff
changeset
|
1489 |
3172
2a484b449183
* x-win.el: Check for a geometry resource, and apply it to the
Jim Blandy <jimb@redhat.com>
parents:
3081
diff
changeset
|
1490 ;; 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
|
1491 ;; 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
|
1492 ;; precedence. |
10400
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1493 (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
|
1494 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
|
1495 (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
|
1496 (progn |
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1497 (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
|
1498 ;; If the resource specifies a position, |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1499 ;; 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
|
1500 (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
|
1501 (setq parsed (cons '(user-position . t) |
278e0abb825f
If the geometry resource specifies a position,
Richard M. Stallman <rms@gnu.org>
parents:
11718
diff
changeset
|
1502 (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
|
1503 ;; 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
|
1504 (setq initial-frame-alist (append initial-frame-alist parsed)) |
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1505 ;; The size parms apply to all frames. |
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1506 (if (assq 'height parsed) |
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1507 (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
|
1508 (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
|
1509 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
|
1510 (if (assq 'width parsed) |
2743977604b1
Put height and width from geometry parm into default-frame-alist.
Richard M. Stallman <rms@gnu.org>
parents:
10094
diff
changeset
|
1511 (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
|
1512 (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
|
1513 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
|
1514 |
3966
dcf86f82f2c8
* term/x-win.el: Check the reverseVideo/ReverseVideo resource,
Jim Blandy <jimb@redhat.com>
parents:
3889
diff
changeset
|
1515 ;; 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
|
1516 (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
|
1517 (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
|
1518 (if (and rv |
e0345afdf64e
* term/x-win.el: Include (invocation-name) in the error messages
Jim Blandy <jimb@redhat.com>
parents:
3966
diff
changeset
|
1519 (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
|
1520 (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
|
1521 (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
|
1522 |
3493
b37b09c0b43d
(x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents:
3373
diff
changeset
|
1523 ;; 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
|
1524 (let ((res-selection-timeout |
b37b09c0b43d
(x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents:
3373
diff
changeset
|
1525 (x-get-resource "selectionTimeout" "SelectionTimeout"))) |
4280
fcc66d1d9289
(x-selection-timeout): Use 20000 as default.
Richard M. Stallman <rms@gnu.org>
parents:
4273
diff
changeset
|
1526 (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
|
1527 (if res-selection-timeout |
b37b09c0b43d
(x-selection-timeout): Set it, using x-get-resource.
Richard M. Stallman <rms@gnu.org>
parents:
3373
diff
changeset
|
1528 (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
|
1529 |
2145
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1530 (defun x-win-suspend-error () |
aa0b19850348
Cancel previous change, since it discarded
Richard M. Stallman <rms@gnu.org>
parents:
2143
diff
changeset
|
1531 (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
|
1532 (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
|
1533 |
707 | 1534 ;;; Arrange for the kill and yank functions to set and check the clipboard. |
1535 (setq interprogram-cut-function 'x-select-text) | |
1536 (setq interprogram-paste-function 'x-cut-buffer-or-selection-value) | |
273 | 1537 |
383 | 1538 ;;; Turn off window-splitting optimization; X is usually fast enough |
1539 ;;; that this is only annoying. | |
1540 (setq split-window-keep-point t) | |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
1541 |
11290
e7510a23df8e
(mode-line-buffer-identification): Eliminate %F.
Richard M. Stallman <rms@gnu.org>
parents:
10400
diff
changeset
|
1542 ;; Don't show the frame name; that's redundant with X. |
17811 | 1543 (setq-default mode-line-frame-identification " ") |
11290
e7510a23df8e
(mode-line-buffer-identification): Eliminate %F.
Richard M. Stallman <rms@gnu.org>
parents:
10400
diff
changeset
|
1544 |
15815
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1545 ;;; Motif direct handling of f10 wasn't working right, |
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1546 ;;; So temporarily we've turned it off in lwlib-Xm.c |
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1547 ;;; and turned the Emacs f10 back on. |
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1548 ;;; ;; Motif normally handles f10 itself, so don't try to handle it a second time. |
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1549 ;;; (if (featurep 'motif) |
65dd474f666e
Delete code to disable f10 if motif.
Richard M. Stallman <rms@gnu.org>
parents:
15538
diff
changeset
|
1550 ;;; (global-set-key [f10] 'ignore)) |
15058
767429c4d3d2
[motif]: Make f10 undefined.
Richard M. Stallman <rms@gnu.org>
parents:
14977
diff
changeset
|
1551 |
2157
0d77768bf3f2
Added library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2145
diff
changeset
|
1552 ;;; x-win.el ends here |