annotate lisp/term/pc-win.el @ 24467:4d5aae556ba8

(bdf-directory-list): Doc fix.
author Karl Heuer <kwzh@gnu.org>
date Tue, 09 Mar 1999 23:26:28 +0000
parents 2dd79725f0c5
children 2ed76ce5608e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
17517
8f952e921136 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17478
diff changeset
1 ;;; pc-win.el --- setup support for `PC windows' (whatever that is).
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
2
18770
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
3 ;; Copyright (C) 1994, 1996, 1997 Free Software Foundation, Inc.
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
4
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
5 ;; Author: Morten Welinder <terra@diku.dk>
14734
20f4c4a078b2 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 14520
diff changeset
6 ;; Maintainer: FSF
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
7
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
9
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
13 ;; any later version.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
14
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
18 ;; GNU General Public License for more details.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
19
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
14170
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14040
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: 14040
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
23 ;; Boston, MA 02111-1307, USA.
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
24
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
25 ;;; Code:
23cc3f54e536 Update FSF's office address.
Erik Naggum <erik@naggum.no>
parents: 14040
diff changeset
26
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
27 (load "term/internal" nil t)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
28
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
29 ;; Color translation -- doesn't really need to be fast.
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
30 ;; Colors listed here do not include the "light-",
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
31 ;; "medium-" and "dark-" prefixes that are accounted for
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
32 ;; by `msdos-color-translate', which see below).
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
33
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
34 (defvar msdos-color-aliases
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
35 '(("snow" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
36 ("ghost white" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
37 ("ghostwhite" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
38 ("white smoke" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
39 ("whitesmoke" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
40 ("gainsboro" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
41 ("floral white" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
42 ("floralwhite" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
43 ("old lace" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
44 ("oldlace" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
45 ("linen" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
46 ("antique white" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
47 ("antiquewhite" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
48 ("papaya whip" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
49 ("papayawhip" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
50 ("blanched almond" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
51 ("blanchedalmond" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
52 ("bisque" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
53 ("peach puff" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
54 ("peachpuff" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
55 ("navajo white" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
56 ("navajowhite" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
57 ("moccasin" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
58 ("cornsilk" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
59 ("ivory" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
60 ("lemon chiffon" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
61 ("lemonchiffon" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
62 ("seashell" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
63 ("honeydew" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
64 ("mint cream" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
65 ("mintcream" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
66 ("azure" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
67 ("alice blue" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
68 ("aliceblue" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
69 ("lavender" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
70 ("lavender blush" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
71 ("lavenderblush" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
72 ("misty rose" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
73 ("mistyrose" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
74 ("aquamarine" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
75 ("cadet blue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
76 ("cadetblue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
77 ("cornflower blue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
78 ("cornflowerblue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
79 ("midnight blue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
80 ("midnightblue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
81 ("navy blue" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
82 ("navyblue" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
83 ("navy" . "cyan")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
84 ("royalblue" . "blue")
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
85 ("royal blue" . "blue")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
86 ("sky blue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
87 ("skyblue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
88 ("dodger blue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
89 ("dodgerblue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
90 ("powder blue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
91 ("powderblue" . "lightblue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
92 ("slate blue" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
93 ("slateblue" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
94 ("steel blue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
95 ("steelblue" . "blue")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
96 ("coral" . "lightred")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
97 ("tomato" . "lightred")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
98 ("firebrick" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
99 ("gold" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
100 ("goldenrod" . "yellow")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
101 ("goldenrod yellow" . "yellow")
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
102 ("goldenrodyellow" . "yellow")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
103 ("pale goldenrod" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
104 ("palegoldenrod" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
105 ("olive green" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
106 ("olivegreen" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
107 ("olive drab" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
108 ("olivedrab" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
109 ("forest green" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
110 ("forestgreen" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
111 ("lime green" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
112 ("limegreen" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
113 ("sea green" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
114 ("seagreen" . "lightcyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
115 ("spring green" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
116 ("springgreen" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
117 ("lawn green" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
118 ("lawngreen" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
119 ("chartreuse" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
120 ("yellow green" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
121 ("yellowgreen" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
122 ("green yellow" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
123 ("greenyellow" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
124 ("slate grey" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
125 ("slategrey" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
126 ("slate gray" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
127 ("slategray" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
128 ("dim grey" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
129 ("dimgrey" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
130 ("dim gray" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
131 ("dimgray" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
132 ("light grey" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
133 ("lightgrey" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
134 ("light gray" . "lightgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
135 ("gray" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
136 ("grey" . "darkgray")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
137 ("khaki" . "green")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
138 ("maroon" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
139 ("orange" . "brown")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
140 ("orchid" . "brown")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
141 ("saddle brown" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
142 ("saddlebrown" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
143 ("peru" . "red")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
144 ("burlywood" . "brown")
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
145 ("sandy brown" . "brown")
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
146 ("sandybrown" . "brown")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
147 ("pink" . "lightred")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
148 ("hotpink" . "lightred")
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
149 ("hot pink" ."lightred")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
150 ("plum" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
151 ("indian red" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
152 ("indianred" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
153 ("violet red" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
154 ("violetred" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
155 ("orange red" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
156 ("orangered" . "red")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
157 ("salmon" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
158 ("sienna" . "lightred")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
159 ("tan" . "lightred")
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
160 ("chocolate" . "brown")
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
161 ("thistle" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
162 ("turquoise" . "lightgreen")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
163 ("pale turquoise" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
164 ("paleturquoise" . "cyan")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
165 ("violet" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
166 ("blue violet" . "lightmagenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
167 ("blueviolet" . "lightmagenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
168 ("wheat" . "white")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
169 ("green yellow" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
170 ("greenyellow" . "yellow")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
171 ("purple" . "magenta")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
172 ("rosybrown" . "brown")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
173 ("rosy brown" . "brown")
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
174 ("beige" . "brown"))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
175 "List of alternate names for colors.")
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
176
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
177 (defun msdos-color-translate (name)
24242
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
178 "Translate color specification in NAME into something DOS terminal groks."
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
179 (setq name (downcase name))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
180 (let* ((len (length name))
13924
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
181 (val (- (length x-colors)
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
182 (length (member name x-colors))))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
183 (try))
13924
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
184 (if (or (< val 0) (>= val (length x-colors))) (setq val nil))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
185 (or val
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
186 (and (setq try (cdr (assoc name msdos-color-aliases)))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
187 (msdos-color-translate try))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
188 (and (> len 5)
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
189 (string= "light" (substring name 0 5))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
190 (setq try (msdos-color-translate (substring name 5)))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
191 (logior try 8))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
192 (and (> len 6)
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
193 (string= "light " (substring name 0 6))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
194 (setq try (msdos-color-translate (substring name 6)))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
195 (logior try 8))
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
196 (and (> len 4)
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
197 (string= "pale" (substring name 0 4))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
198 (setq try (msdos-color-translate (substring name 4)))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
199 (logior try 8))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
200 (and (> len 5)
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
201 (string= "pale " (substring name 0 5))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
202 (setq try (msdos-color-translate (substring name 5)))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
203 (logior try 8))
15315
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
204 (and (> len 6)
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
205 (string= "medium" (substring name 0 6))
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
206 (msdos-color-translate (substring name 6)))
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
207 (and (> len 7)
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
208 (string= "medium " (substring name 0 7))
d46311cef590 (msdos-color-aliases): Define more colors. (msdos-color-translate):
Richard M. Stallman <rms@gnu.org>
parents: 14734
diff changeset
209 (msdos-color-translate (substring name 7)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
210 (and (> len 4)
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
211 (or (string= "dark" (substring name 0 4))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
212 (string= "deep" (substring name 0 4)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
213 (msdos-color-translate (substring name 4)))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
214 (and (> len 5)
19568
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
215 (or (string= "dark " (substring name 0 5))
fa099f73f994 (msdos-color-aliases): Add missing colors.
Eli Zaretskii <eliz@gnu.org>
parents: 19290
diff changeset
216 (string= "deep " (substring name 0 5)))
19290
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
217 (msdos-color-translate (substring name 5)))
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
218 (and (> len 4) ;; gray shades: gray0 to gray100
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
219 (save-match-data
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
220 (and
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
221 (string-match "gr[ae]y[0-9]" name)
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
222 (string-match "[0-9]+\\'" name)
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
223 (let ((num (string-to-int
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
224 (substring name (match-beginning 0)))))
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
225 (msdos-color-translate
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
226 (cond
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
227 ((> num 90) "white")
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
228 ((> num 50) "lightgray")
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
229 ((> num 10) "darkgray")
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
230 (t "black")))))))
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
231 (and (> len 1) ;; purple1 to purple4 and the like
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
232 (save-match-data
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
233 (and
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
234 (string-match "[1-4]\\'" name)
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
235 (msdos-color-translate
24242
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
236 (substring name 0 (match-beginning 0))))))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
237 (and (= len 7) ;; X-style "#XXYYZZ" color spec
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
238 (eq (aref name 0) ?#)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
239 (member (aref name 1)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
240 '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
241 ?A ?B ?C ?D ?E ?F ?a ?b ?c ?d ?e ?f))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
242 (msdos-color-translate
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
243 (msdos-approximate-color (string-to-number
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
244 (substring name 1) 16)))))))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
245
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
246 (defun msdos-approximate-color (num)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
247 "Return a DOS color name which is the best approximation for the number NUM."
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
248 (let ((color-values msdos-color-values)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
249 (candidate (car msdos-color-values))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
250 (best-distance 16777216) ;; 0xFFFFFF + 1
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
251 best-color)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
252 (while candidate
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
253 (let* ((values (cdr candidate))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
254 (value (+ (lsh (car values) 16)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
255 (lsh (car (cdr values)) 8)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
256 (nth 2 values))))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
257 (if (< (abs (- value num)) best-distance)
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
258 (setq best-distance (abs (- value num))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
259 best-color (car candidate))))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
260 (setq color-values (cdr color-values))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
261 (setq candidate (car color-values)))
2dd79725f0c5 (msdos-approximate-color): New function.
Eli Zaretskii <eliz@gnu.org>
parents: 23461
diff changeset
262 best-color))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
263 ;; ---------------------------------------------------------------------------
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
264 ;; We want to delay setting frame parameters until the faces are setup
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
265 (defvar default-frame-alist nil)
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
266 (modify-frame-parameters terminal-frame default-frame-alist)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
267
18770
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
268 (defun msdos-bg-mode (&optional frame)
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
269 (let* ((frame (or frame (selected-frame)))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
270 (params (frame-parameters frame))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
271 (bg (cdr (assq 'background-color params))))
23461
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
272 ;; The list of ``dark'' colors should be consistent with
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
273 ;; `x-color-values' (below) and the dark/light color
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
274 ;; decisions `frame-set-background-mode' in lisp/faces.el.
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
275 (if (member bg
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
276 '("black" "blue" "green" "red" "magenta" "brown" "darkgray"))
18770
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
277 'dark
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
278 'light)))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
279
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
280 (defun msdos-face-setup ()
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
281 (modify-frame-parameters terminal-frame default-frame-alist)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
282
19290
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
283 (modify-frame-parameters terminal-frame
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
284 (list (cons 'background-mode
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
285 (msdos-bg-mode terminal-frame))
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
286 (cons 'display-type 'color)))
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
287 (face-set-after-frame-default terminal-frame)
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
288
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
289 (set-face-foreground 'bold "yellow" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
290 (set-face-foreground 'italic "red" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
291 (set-face-foreground 'bold-italic "lightred" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
292 (set-face-foreground 'underline "white" terminal-frame)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
293
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
294 (make-face 'msdos-menu-active-face)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
295 (make-face 'msdos-menu-passive-face)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
296 (make-face 'msdos-menu-select-face)
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
297 (set-face-foreground 'msdos-menu-active-face "white" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
298 (set-face-foreground 'msdos-menu-passive-face "lightgray" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
299 (set-face-background 'msdos-menu-active-face "blue" terminal-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
300 (set-face-background 'msdos-menu-passive-face "blue" terminal-frame)
19290
7fb99affa49a (msdos-color-aliases): Remove color names which end with a number.
Richard M. Stallman <rms@gnu.org>
parents: 19211
diff changeset
301 (set-face-background 'msdos-menu-select-face "red" terminal-frame))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
302
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
303 ;; We have only one font, so...
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
304 (add-hook 'before-init-hook 'msdos-face-setup)
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
305
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
306 ;; We create frames as if we were a terminal, but with a twist.
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
307 (defun make-msdos-frame (&optional parameters)
18770
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
308 (let* ((parms
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
309 (append initial-frame-alist default-frame-alist parameters nil))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
310 (frame (make-terminal-frame parms)))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
311 (modify-frame-parameters frame
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
312 (list (cons 'background-mode
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
313 (msdos-bg-mode frame))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
314 (cons 'display-type 'color)))
94ca3c126cee (msdos-bg-mode): New function.
Richard M. Stallman <rms@gnu.org>
parents: 17517
diff changeset
315 frame))
15397
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
316
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
317 (setq frame-creation-function 'make-msdos-frame)
f95592fcdb1c (msdos-face-setup): Use `terminal-frame' for initial frame setup.
Richard M. Stallman <rms@gnu.org>
parents: 15315
diff changeset
318
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
319 ;; ---------------------------------------------------------------------------
14040
187735b53d52 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13924
diff changeset
320 ;; More or less useful imitations of certain X-functions. A lot of the
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
321 ;; values returned are questionable, but usually only the form of the
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
322 ;; returned value matters. Also, by the way, recall that `ignore' is
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
323 ;; a useful function for returning 'nil regardless of argument.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
324
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
325 ;; From src/xfns.c
13484
be831ed47a75 (x-display-color-p): Accept optional arg.
Richard M. Stallman <rms@gnu.org>
parents: 9571
diff changeset
326 (defun x-display-color-p (&optional display) 't)
19211
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
327 (defun x-list-fonts (pattern &optional face frame maximum width)
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
328 (if (and (numberp width) (= width 1))
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
329 (list "default")
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
330 (list "no-such-font")))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
331 (defun x-color-defined-p (color) (numberp (msdos-color-translate color)))
14520
e46b1e676418 (x-display-pixel-height, x-display-pixel-width):
Richard M. Stallman <rms@gnu.org>
parents: 14170
diff changeset
332 (defun x-display-pixel-width (&optional frame) (frame-width frame))
e46b1e676418 (x-display-pixel-height, x-display-pixel-width):
Richard M. Stallman <rms@gnu.org>
parents: 14170
diff changeset
333 (defun x-display-pixel-height (&optional frame) (frame-height frame))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
334 (defun x-display-planes (&optional frame) 4) ; 3 for background, actually
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
335 (defun x-display-color-cells (&optional frame) 16) ; ???
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
336 (defun x-server-max-request-size (&optional frame) 1000000) ; ???
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
337 (defun x-server-vendor (&optional frame) t "GNU")
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
338 (defun x-server-version (&optional frame) '(1 0 0))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
339 (defun x-display-screens (&optional frame) 1)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
340 (defun x-display-mm-height (&optional frame) 200) ; Guess the size of my
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
341 (defun x-display-mm-width (&optional frame) 253) ; monitor, MW...
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
342 (defun x-display-backing-store (&optional frame) 'not-useful)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
343 (defun x-display-visual-class (&optional frame) 'static-color)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
344 (fset 'x-display-save-under 'ignore)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
345 (fset 'x-get-resource 'ignore)
23461
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
346 ;;;
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
347 ;;; This is copied from etc/rgb.txt, except that some values were changed
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
348 ;;; a bit to make them consistent with DOS console colors. The order of
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
349 ;;; the colors is according to the PC text mode color codes.
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
350 ;;;
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
351 ;;; If you want to change the RGB values, keep in mind that various pieces
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
352 ;;; of Emacs think that a color whose RGB values add up to less than 0.6 of
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
353 ;;; the values for WHITE (i.e. less than 459) are ``dark'', otherwise the
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
354 ;;; color is ``light''; see `frame-set-background-mode' in lisp/faces.el for
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
355 ;;; an example.
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
356 (defvar msdos-color-values
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
357 '(("black" 0 0 0)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
358 ("blue" 0 0 255)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
359 ("green" 0 255 0)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
360 ("cyan" 0 255 255)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
361 ("red" 255 0 0)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
362 ("magenta" 139 0 139) ; dark magenta
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
363 ("brown" 165 42 42)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
364 ("lightgray" 211 211 211)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
365 ("darkgray" 102 102 102) ; gray40
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
366 ("lightblue" 173 216 230)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
367 ("lightgreen" 144 238 144)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
368 ("lightcyan" 224 255 255)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
369 ("lightred" 255 52 179) ; maroon1
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
370 ("lightmagenta" 238 0 238) ; magenta2
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
371 ("yellow" 255 255 0)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
372 ("white" 255 255 255))
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
373 "A list of MS-DOS console colors and their RGB values.")
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
374
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
375 (defun x-color-values (color &optional frame)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
376 "Return a description of the color named COLOR on frame FRAME.\n\
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
377 The value is a list of integer RGB values--(RED GREEN BLUE).\n\
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
378 These values range from 0 to 255; white is (255 255 255).\n\
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
379 If FRAME is omitted or nil, use the selected frame."
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
380 (if (x-color-defined-p color)
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
381 (let ((frame (or frame (selected-frame)))
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
382 (color-code (msdos-color-translate color)))
b84718f930f8 (msdos-color-values): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 21710
diff changeset
383 (cdr (nth color-code msdos-color-values)))))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
384
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
385 ;; From lisp/term/x-win.el
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
386 (setq x-display-name "pc")
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
387 (setq split-window-keep-point t)
13924
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
388 (defvar x-colors '("black"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
389 "blue"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
390 "green"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
391 "cyan"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
392 "red"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
393 "magenta"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
394 "brown"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
395 "lightgray"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
396 "darkgray"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
397 "lightblue"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
398 "lightgreen"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
399 "lightcyan"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
400 "lightred"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
401 "lightmagenta"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
402 "yellow"
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
403 "white")
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
404 "The list of colors available on a PC display under MS-DOS.")
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
405 (defun x-defined-colors (&optional frame)
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
406 "Return a list of colors supported for a particular frame.
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
407 The argument FRAME specifies which frame to try.
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
408 The value may be different for frames on different X displays."
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
409 x-colors)
17478
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
410
21710
70d6549a4105 (x-select-text, x-get-selection-value): Replace win16 with w16.
Eli Zaretskii <eliz@gnu.org>
parents: 20033
diff changeset
411 ;; From lisp/term/w32-win.el
13924
36aa12b0ea6a (x-colors): New variable, a list of colors
Richard M. Stallman <rms@gnu.org>
parents: 13628
diff changeset
412 ;
17478
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
413 ;;;; Selections and cut buffers
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
414 ;
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
415 ;;; We keep track of the last text selected here, so we can check the
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
416 ;;; current selection against it, and avoid passing back our own text
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
417 ;;; from x-cut-buffer-or-selection-value.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
418 (defvar x-last-selected-text nil)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
419
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
420 (defvar x-select-enable-clipboard t
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
421 "Non-nil means cutting and pasting uses the clipboard.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
422 This is in addition to the primary selection.")
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
423
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
424 (defun x-select-text (text &optional push)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
425 (if x-select-enable-clipboard
21710
70d6549a4105 (x-select-text, x-get-selection-value): Replace win16 with w16.
Eli Zaretskii <eliz@gnu.org>
parents: 20033
diff changeset
426 (w16-set-clipboard-data text))
17478
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
427 (setq x-last-selected-text text))
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
428
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
429 ;;; Return the value of the current selection.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
430 ;;; Consult the selection, then the cut buffer. Treat empty strings
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
431 ;;; as if they were unset.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
432 (defun x-get-selection-value ()
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
433 (if x-select-enable-clipboard
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
434 (let (text)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
435 ;; Don't die if x-get-selection signals an error.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
436 (condition-case c
21710
70d6549a4105 (x-select-text, x-get-selection-value): Replace win16 with w16.
Eli Zaretskii <eliz@gnu.org>
parents: 20033
diff changeset
437 (setq text (w16-get-clipboard-data))
70d6549a4105 (x-select-text, x-get-selection-value): Replace win16 with w16.
Eli Zaretskii <eliz@gnu.org>
parents: 20033
diff changeset
438 (error (message "w16-get-clipboard-data:%s" c)))
17478
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
439 (if (string= text "") (setq text nil))
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
440 (cond
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
441 ((not text) nil)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
442 ((eq text x-last-selected-text) nil)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
443 ((string= text x-last-selected-text)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
444 ;; Record the newer string, so subsequent calls can use the 'eq' test.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
445 (setq x-last-selected-text text)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
446 nil)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
447 (t
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
448 (setq x-last-selected-text text))))))
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
449
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
450 ;;; Arrange for the kill and yank functions to set and check the clipboard.
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
451 (setq interprogram-cut-function 'x-select-text)
14989cb202dc * (x-select-enable-clipboard): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 16643
diff changeset
452 (setq interprogram-paste-function 'x-get-selection-value)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
453
13628
6da84b713ae7 (msdos-color-aliases): Add more aliases.
Richard M. Stallman <rms@gnu.org>
parents: 13484
diff changeset
454 ;; From lisp/faces.el: we only have one font, so always return
6da84b713ae7 (msdos-color-aliases): Add more aliases.
Richard M. Stallman <rms@gnu.org>
parents: 13484
diff changeset
455 ;; it, no matter which variety they've asked for.
6da84b713ae7 (msdos-color-aliases): Add more aliases.
Richard M. Stallman <rms@gnu.org>
parents: 13484
diff changeset
456 (defun x-frob-font-slant (font which)
6da84b713ae7 (msdos-color-aliases): Add more aliases.
Richard M. Stallman <rms@gnu.org>
parents: 13484
diff changeset
457 font)
6da84b713ae7 (msdos-color-aliases): Add more aliases.
Richard M. Stallman <rms@gnu.org>
parents: 13484
diff changeset
458
19211
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
459 ;; From src/fontset.c:
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
460 (fset 'query-fontset 'ignore)
e83ac35f9bcb (x-list-fonts): Return "default" when appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 18770
diff changeset
461
16643
734b72203ac5 (iconify-or-deiconify-frame): Define to be a
Richard M. Stallman <rms@gnu.org>
parents: 15397
diff changeset
462 ;; From lisp/term/x-win.el: make iconify-or-deiconify-frame a no-op.
734b72203ac5 (iconify-or-deiconify-frame): Define to be a
Richard M. Stallman <rms@gnu.org>
parents: 15397
diff changeset
463 (fset 'iconify-or-deiconify-frame 'ignore)
734b72203ac5 (iconify-or-deiconify-frame): Define to be a
Richard M. Stallman <rms@gnu.org>
parents: 15397
diff changeset
464
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
465 ;; From lisp/frame.el
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
466 (fset 'set-default-font 'ignore)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
467 (fset 'set-mouse-color 'ignore) ; We cannot, I think.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
468 (fset 'set-cursor-color 'ignore) ; Hardware determined by char under.
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
469 (fset 'set-border-color 'ignore) ; Not useful.
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
470
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
471 ;; From lisp/term/x-win.el:
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
472 (defconst x-long-option-alist
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
473 '(("--name" . "-name")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
474 ("--title" . "-T")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
475 ("--reverse-video" . "-reverse")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
476 ("--foreground-color" . "-fg")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
477 ("--background-color" . "-bg")))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
478 ;; ---------------------------------------------------------------------------
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
479 ;; Handle the X-like command line parameters "-fg", "-bg", "-name", etc.
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
480 (defun msdos-handle-args (args)
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
481 (let ((rest nil))
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
482 (message "%s" args)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
483 (while args
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
484 (let* ((this (car args))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
485 (orig-this this)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
486 completion argval)
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
487 (setq args (cdr args))
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
488 ;; Check for long options with attached arguments
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
489 ;; and separate out the attached option argument into argval.
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
490 (if (string-match "^--[^=]*=" this)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
491 (setq argval (substring this (match-end 0))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
492 this (substring this 0 (1- (match-end 0)))))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
493 (setq completion (try-completion this x-long-option-alist))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
494 (if (eq completion t)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
495 ;; Exact match for long option.
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
496 (setq this (cdr (assoc this x-long-option-alist)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
497 (if (stringp completion)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
498 (let ((elt (assoc completion x-long-option-alist)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
499 ;; Check for abbreviated long option.
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
500 (or elt
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
501 (error "Option `%s' is ambiguous" this))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
502 (setq this (cdr elt)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
503 ;; Check for a short option.
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
504 (setq argval nil this orig-this)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
505 (cond ((or (string= this "-fg") (string= this "-foreground"))
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
506 (or argval (setq argval (car args) args (cdr args)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
507 (setq default-frame-alist
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
508 (cons (cons 'foreground-color argval)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
509 default-frame-alist)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
510 ((or (string= this "-bg") (string= this "-background"))
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
511 (or argval (setq argval (car args) args (cdr args)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
512 (setq default-frame-alist
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
513 (cons (cons 'background-color argval)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
514 default-frame-alist)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
515 ((or (string= this "-T") (string= this "-name"))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
516 (or argval (setq argval (car args) args (cdr args)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
517 (setq default-frame-alist
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
518 (cons
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
519 (cons 'title
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
520 (if (stringp argval)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
521 argval
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
522 (let ((case-fold-search t)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
523 i)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
524 (setq argval (invocation-name))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
525
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
526 ;; Change any . or * characters in name to
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
527 ;; hyphens, so as to emulate behavior on X.
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
528 (while
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
529 (setq i (string-match "[.*]" argval))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
530 (aset argval i ?-))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
531 argval)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
532 default-frame-alist)))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
533 ((or (string= this "-r")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
534 (string= this "-rv")
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
535 (string= this "-reverse"))
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
536 (setq default-frame-alist
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
537 (cons '(reverse . t)
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
538 default-frame-alist)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
539 (t (setq rest (cons this rest))))))
20033
2c0e89d1488b (x-long-option-alist): New variable.
Eli Zaretskii <eliz@gnu.org>
parents: 19568
diff changeset
540 (nreverse rest)))
9571
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
541
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
542 (setq command-line-args (msdos-handle-args command-line-args))
b37425ecb3f0 Initial revision
Morten Welinder <terra@diku.dk>
parents:
diff changeset
543 ;; ---------------------------------------------------------------------------
17517
8f952e921136 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17478
diff changeset
544
8f952e921136 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 17478
diff changeset
545 ;;; pc-win.el ends here