Mercurial > emacs
annotate lisp/term/common-win.el @ 106034:4ff5c9cf147f
* register.el (jump-to-register, insert-register): Handle Semantic
tags. From commented-out advice in semantic/senator.el.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 15 Nov 2009 23:54:21 +0000 |
parents | 1a53b2a8065d |
children | 1d1d5d9bd884 |
rev | line source |
---|---|
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
1 ;;; common-win.el --- common part of handling window systems |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
2 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
3 ;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004, 2005, 2006, 2007, |
100908 | 4 ;; 2008, 2009 Free Software Foundation, Inc. |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
5 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
6 ;; Maintainer: FSF |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
7 ;; Keywords: terminals |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
8 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
9 ;; This file is part of GNU Emacs. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
10 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
11 ;; GNU Emacs is free software: you can redistribute it and/or modify |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
12 ;; it under the terms of the GNU General Public License as published by |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
13 ;; the Free Software Foundation, either version 3 of the License, or |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
14 ;; (at your option) any later version. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
15 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
16 ;; GNU Emacs is distributed in the hope that it will be useful, |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
19 ;; GNU General Public License for more details. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
20 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
21 ;; You should have received a copy of the GNU General Public License |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
22 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
23 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
24 ;;; Commentary: |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
25 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
26 ;;; Code: |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
27 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
28 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
29 (defvar x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
30 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
31 (defvar x-command-line-resources nil) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
32 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
33 ;; Handler for switches of the form "-switch value" or "-switch". |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
34 (defun x-handle-switch (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
35 (let ((aelt (assoc switch command-line-x-option-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
36 (if aelt |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
37 (let ((param (nth 3 aelt)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
38 (value (nth 4 aelt))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
39 (if value |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
40 (setq default-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
41 (cons (cons param value) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
42 default-frame-alist)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
43 (setq default-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
44 (cons (cons param |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
45 (car x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
46 default-frame-alist) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
47 x-invocation-args (cdr x-invocation-args))))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
48 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
49 ;; Handler for switches of the form "-switch n" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
50 (defun x-handle-numeric-switch (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
51 (let ((aelt (assoc switch command-line-x-option-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
52 (if aelt |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
53 (let ((param (nth 3 aelt))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
54 (setq default-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
55 (cons (cons param |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
56 (string-to-number (car x-invocation-args))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
57 default-frame-alist) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
58 x-invocation-args |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
59 (cdr x-invocation-args)))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
60 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
61 ;; Handle options that apply to initial frame only |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
62 (defun x-handle-initial-switch (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
63 (let ((aelt (assoc switch command-line-x-option-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
64 (if aelt |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
65 (let ((param (nth 3 aelt)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
66 (value (nth 4 aelt))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
67 (if value |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
68 (setq initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
69 (cons (cons param value) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
70 initial-frame-alist)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
71 (setq initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
72 (cons (cons param |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
73 (car x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
74 initial-frame-alist) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
75 x-invocation-args (cdr x-invocation-args))))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
76 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
77 ;; Make -iconic apply only to the initial frame! |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
78 (defun x-handle-iconic (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
79 (setq initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
80 (cons '(visibility . icon) initial-frame-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
81 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
82 ;; Handle the -xrm option. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
83 (defun x-handle-xrm-switch (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
84 (unless (consp x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
85 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
86 (setq x-command-line-resources |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
87 (if (null x-command-line-resources) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
88 (car x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
89 (concat x-command-line-resources "\n" (car x-invocation-args)))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
90 (setq x-invocation-args (cdr x-invocation-args))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
91 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
92 (declare-function x-parse-geometry "frame.c" (string)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
93 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
94 ;; Handle the geometry option |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
95 (defun x-handle-geometry (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
96 (let* ((geo (x-parse-geometry (car x-invocation-args))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
97 (left (assq 'left geo)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
98 (top (assq 'top geo)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
99 (height (assq 'height geo)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
100 (width (assq 'width geo))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
101 (if (or height width) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
102 (setq default-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
103 (append default-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
104 '((user-size . t)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
105 (if height (list height)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
106 (if width (list width))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
107 initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
108 (append initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
109 '((user-size . t)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
110 (if height (list height)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
111 (if width (list width))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
112 (if (or left top) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
113 (setq initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
114 (append initial-frame-alist |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
115 '((user-position . t)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
116 (if left (list left)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
117 (if top (list top))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
118 (setq x-invocation-args (cdr x-invocation-args)))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
119 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
120 (defvar x-resource-name) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
121 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
122 ;; Handle the -name option. Set the variable x-resource-name |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
123 ;; to the option's operand; set the name of |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
124 ;; the initial frame, too. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
125 (defun x-handle-name-switch (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
126 (or (consp x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
127 (error "%s: missing argument to `%s' option" (invocation-name) switch)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
128 (setq x-resource-name (car x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
129 x-invocation-args (cdr x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
130 (setq initial-frame-alist (cons (cons 'name x-resource-name) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
131 initial-frame-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
132 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
133 (defvar x-display-name nil |
104066 | 134 "The name of the window display on which Emacs was started. |
135 On X, the display name of individual X frames is recorded in the | |
136 `display' frame parameter.") | |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
137 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
138 (defun x-handle-display (switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
139 "Handle -display DISPLAY option." |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
140 (setq x-display-name (car x-invocation-args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
141 x-invocation-args (cdr x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
142 ;; Make subshell programs see the same DISPLAY value Emacs really uses. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
143 ;; Note that this isn't completely correct, since Emacs can use |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
144 ;; multiple displays. However, there is no way to tell an already |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
145 ;; running subshell which display the user is currently typing on. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
146 (setenv "DISPLAY" x-display-name)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
147 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
148 (defun x-handle-args (args) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
149 "Process the X-related command line options in ARGS. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
150 This is done before the user's startup file is loaded. They are copied to |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
151 `x-invocation-args', from which the X-related things are extracted, first |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
152 the switch (e.g., \"-fg\") in the following code, and possible values |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
153 \(e.g., \"black\") in the option handler code (e.g., x-handle-switch). |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
154 This function returns ARGS minus the arguments that have been processed." |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
155 ;; We use ARGS to accumulate the args that we don't handle here, to return. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
156 (setq x-invocation-args args |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
157 args nil) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
158 (while (and x-invocation-args |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
159 (not (equal (car x-invocation-args) "--"))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
160 (let* ((this-switch (car x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
161 (orig-this-switch this-switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
162 completion argval aelt handler) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
163 (setq x-invocation-args (cdr x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
164 ;; Check for long options with attached arguments |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
165 ;; and separate out the attached option argument into argval. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
166 (if (string-match "^--[^=]*=" this-switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
167 (setq argval (substring this-switch (match-end 0)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
168 this-switch (substring this-switch 0 (1- (match-end 0))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
169 ;; Complete names of long options. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
170 (if (string-match "^--" this-switch) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
171 (progn |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
172 (setq completion (try-completion this-switch command-line-x-option-alist)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
173 (if (eq completion t) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
174 ;; Exact match for long option. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
175 nil |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
176 (if (stringp completion) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
177 (let ((elt (assoc completion command-line-x-option-alist))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
178 ;; Check for abbreviated long option. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
179 (or elt |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
180 (error "Option `%s' is ambiguous" this-switch)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
181 (setq this-switch completion)))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
182 (setq aelt (assoc this-switch command-line-x-option-alist)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
183 (if aelt (setq handler (nth 2 aelt))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
184 (if handler |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
185 (if argval |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
186 (let ((x-invocation-args |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
187 (cons argval x-invocation-args))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
188 (funcall handler this-switch)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
189 (funcall handler this-switch)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
190 (setq args (cons orig-this-switch args))))) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
191 (nconc (nreverse args) x-invocation-args)) |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
192 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
193 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
194 ;; |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
195 ;; Available colors |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
196 ;; |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
197 ;; The ordering of the colors is chosen for the user's convenience in |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
198 ;; `list-colors-display', which displays the reverse of this list. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
199 ;; Roughly speaking, `list-colors-display' orders by (i) named shades |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
200 ;; of grey with hue 0.0, sorted by value (ii) named colors with |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
201 ;; saturation 1.0, sorted by hue, (iii) named non-white colors with |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
202 ;; saturation less than 1.0, sorted by hue, (iv) other named shades of |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
203 ;; white, (v) numbered colors sorted by hue, and (vi) numbered shades |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
204 ;; of grey. |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
205 |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
206 (defvar x-colors |
105654
1a53b2a8065d
* puresize.h (BASE_PURESIZE): Increase to 1310000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104067
diff
changeset
|
207 (purecopy |
1a53b2a8065d
* puresize.h (BASE_PURESIZE): Increase to 1310000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104067
diff
changeset
|
208 '("gray100" "gray99" "gray98" "gray97" "gray96" "gray95" "gray94" "gray93" "gray92" |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
209 "gray91" "gray90" "gray89" "gray88" "gray87" "gray86" "gray85" "gray84" "gray83" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
210 "gray82" "gray81" "gray80" "gray79" "gray78" "gray77" "gray76" "gray75" "gray74" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
211 "gray73" "gray72" "gray71" "gray70" "gray69" "gray68" "gray67" "gray66" "gray65" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
212 "gray64" "gray63" "gray62" "gray61" "gray60" "gray59" "gray58" "gray57" "gray56" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
213 "gray55" "gray54" "gray53" "gray52" "gray51" "gray50" "gray49" "gray48" "gray47" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
214 "gray46" "gray45" "gray44" "gray43" "gray42" "gray41" "gray40" "gray39" "gray38" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
215 "gray37" "gray36" "gray35" "gray34" "gray33" "gray32" "gray31" "gray30" "gray29" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
216 "gray28" "gray27" "gray26" "gray25" "gray24" "gray23" "gray22" "gray21" "gray20" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
217 "gray19" "gray18" "gray17" "gray16" "gray15" "gray14" "gray13" "gray12" "gray11" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
218 "gray10" "gray9" "gray8" "gray7" "gray6" "gray5" "gray4" "gray3" "gray2" "gray1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
219 "gray0" "LightPink1" "LightPink2" "LightPink3" "LightPink4" "pink1" "pink2" "pink3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
220 "pink4" "PaleVioletRed1" "PaleVioletRed2" "PaleVioletRed3" "PaleVioletRed4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
221 "LavenderBlush1" "LavenderBlush2" "LavenderBlush3" "LavenderBlush4" "VioletRed1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
222 "VioletRed2" "VioletRed3" "VioletRed4" "HotPink1" "HotPink2" "HotPink3" "HotPink4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
223 "DeepPink1" "DeepPink2" "DeepPink3" "DeepPink4" "maroon1" "maroon2" "maroon3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
224 "maroon4" "orchid1" "orchid2" "orchid3" "orchid4" "plum1" "plum2" "plum3" "plum4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
225 "thistle1" "thistle2" "thistle3" "thistle4" "MediumOrchid1" "MediumOrchid2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
226 "MediumOrchid3" "MediumOrchid4" "DarkOrchid1" "DarkOrchid2" "DarkOrchid3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
227 "DarkOrchid4" "purple1" "purple2" "purple3" "purple4" "MediumPurple1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
228 "MediumPurple2" "MediumPurple3" "MediumPurple4" "SlateBlue1" "SlateBlue2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
229 "SlateBlue3" "SlateBlue4" "RoyalBlue1" "RoyalBlue2" "RoyalBlue3" "RoyalBlue4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
230 "LightSteelBlue1" "LightSteelBlue2" "LightSteelBlue3" "LightSteelBlue4" "SlateGray1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
231 "SlateGray2" "SlateGray3" "SlateGray4" "DodgerBlue1" "DodgerBlue2" "DodgerBlue3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
232 "DodgerBlue4" "SteelBlue1" "SteelBlue2" "SteelBlue3" "SteelBlue4" "SkyBlue1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
233 "SkyBlue2" "SkyBlue3" "SkyBlue4" "LightSkyBlue1" "LightSkyBlue2" "LightSkyBlue3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
234 "LightSkyBlue4" "LightBlue1" "LightBlue2" "LightBlue3" "LightBlue4" "CadetBlue1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
235 "CadetBlue2" "CadetBlue3" "CadetBlue4" "azure1" "azure2" "azure3" "azure4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
236 "LightCyan1" "LightCyan2" "LightCyan3" "LightCyan4" "PaleTurquoise1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
237 "PaleTurquoise2" "PaleTurquoise3" "PaleTurquoise4" "DarkSlateGray1" "DarkSlateGray2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
238 "DarkSlateGray3" "DarkSlateGray4" "aquamarine1" "aquamarine2" "aquamarine3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
239 "aquamarine4" "SeaGreen1" "SeaGreen2" "SeaGreen3" "SeaGreen4" "honeydew1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
240 "honeydew2" "honeydew3" "honeydew4" "DarkSeaGreen1" "DarkSeaGreen2" "DarkSeaGreen3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
241 "DarkSeaGreen4" "PaleGreen1" "PaleGreen2" "PaleGreen3" "PaleGreen4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
242 "DarkOliveGreen1" "DarkOliveGreen2" "DarkOliveGreen3" "DarkOliveGreen4" "OliveDrab1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
243 "OliveDrab2" "OliveDrab3" "OliveDrab4" "ivory1" "ivory2" "ivory3" "ivory4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
244 "LightYellow1" "LightYellow2" "LightYellow3" "LightYellow4" "khaki1" "khaki2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
245 "khaki3" "khaki4" "LemonChiffon1" "LemonChiffon2" "LemonChiffon3" "LemonChiffon4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
246 "LightGoldenrod1" "LightGoldenrod2" "LightGoldenrod3" "LightGoldenrod4" "cornsilk1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
247 "cornsilk2" "cornsilk3" "cornsilk4" "goldenrod1" "goldenrod2" "goldenrod3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
248 "goldenrod4" "DarkGoldenrod1" "DarkGoldenrod2" "DarkGoldenrod3" "DarkGoldenrod4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
249 "wheat1" "wheat2" "wheat3" "wheat4" "NavajoWhite1" "NavajoWhite2" "NavajoWhite3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
250 "NavajoWhite4" "burlywood1" "burlywood2" "burlywood3" "burlywood4" "AntiqueWhite1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
251 "AntiqueWhite2" "AntiqueWhite3" "AntiqueWhite4" "bisque1" "bisque2" "bisque3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
252 "bisque4" "tan1" "tan2" "tan3" "tan4" "PeachPuff1" "PeachPuff2" "PeachPuff3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
253 "PeachPuff4" "seashell1" "seashell2" "seashell3" "seashell4" "chocolate1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
254 "chocolate2" "chocolate3" "chocolate4" "sienna1" "sienna2" "sienna3" "sienna4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
255 "LightSalmon1" "LightSalmon2" "LightSalmon3" "LightSalmon4" "salmon1" "salmon2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
256 "salmon3" "salmon4" "coral1" "coral2" "coral3" "coral4" "tomato1" "tomato2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
257 "tomato3" "tomato4" "MistyRose1" "MistyRose2" "MistyRose3" "MistyRose4" "snow1" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
258 "snow2" "snow3" "snow4" "RosyBrown1" "RosyBrown2" "RosyBrown3" "RosyBrown4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
259 "IndianRed1" "IndianRed2" "IndianRed3" "IndianRed4" "firebrick1" "firebrick2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
260 "firebrick3" "firebrick4" "brown1" "brown2" "brown3" "brown4" "magenta1" "magenta2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
261 "magenta3" "magenta4" "blue1" "blue2" "blue3" "blue4" "DeepSkyBlue1" "DeepSkyBlue2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
262 "DeepSkyBlue3" "DeepSkyBlue4" "turquoise1" "turquoise2" "turquoise3" "turquoise4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
263 "cyan1" "cyan2" "cyan3" "cyan4" "SpringGreen1" "SpringGreen2" "SpringGreen3" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
264 "SpringGreen4" "green1" "green2" "green3" "green4" "chartreuse1" "chartreuse2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
265 "chartreuse3" "chartreuse4" "yellow1" "yellow2" "yellow3" "yellow4" "gold1" "gold2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
266 "gold3" "gold4" "orange1" "orange2" "orange3" "orange4" "DarkOrange1" "DarkOrange2" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
267 "DarkOrange3" "DarkOrange4" "OrangeRed1" "OrangeRed2" "OrangeRed3" "OrangeRed4" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
268 "red1" "red2" "red3" "red4" "lavender blush" "ghost white" "lavender" "alice blue" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
269 "azure" "light cyan" "mint cream" "honeydew" "ivory" "light goldenrod yellow" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
270 "light yellow" "beige" "floral white" "old lace" "blanched almond" "moccasin" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
271 "papaya whip" "bisque" "antique white" "linen" "peach puff" "seashell" "misty rose" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
272 "snow" "light pink" "pink" "hot pink" "deep pink" "maroon" "pale violet red" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
273 "violet red" "medium violet red" "violet" "plum" "thistle" "orchid" "medium orchid" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
274 "dark orchid" "purple" "blue violet" "medium purple" "light slate blue" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
275 "medium slate blue" "slate blue" "dark slate blue" "midnight blue" "navy" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
276 "dark blue" "light steel blue" "cornflower blue" "dodger blue" "royal blue" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
277 "light slate gray" "slate gray" "dark slate gray" "steel blue" "cadet blue" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
278 "light sky blue" "sky blue" "light blue" "powder blue" "pale turquoise" "turquoise" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
279 "medium turquoise" "dark cyan" "aquamarine" "medium aquamarine" "light sea green" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
280 "medium sea green" "sea green" "dark sea green" "pale green" "lime green" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
281 "forest green" "light green" "green yellow" "yellow green" "olive drab" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
282 "dark olive green" "lemon chiffon" "khaki" "dark khaki" "cornsilk" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
283 "pale goldenrod" "light goldenrod" "goldenrod" "dark goldenrod" "wheat" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
284 "navajo white" "tan" "burlywood" "sandy brown" "peru" "chocolate" "saddle brown" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
285 "sienna" "rosy brown" "dark salmon" "coral" "tomato" "light salmon" "salmon" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
286 "light coral" "indian red" "firebrick" "brown" "dark red" "magenta" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
287 "dark magenta" "dark violet" "medium blue" "blue" "deep sky blue" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
288 "cyan" "medium spring green" "spring green" "green" "lawn green" "chartreuse" |
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
289 "yellow" "gold" "orange" "dark orange" "orange red" "red" "white" "white smoke" |
105654
1a53b2a8065d
* puresize.h (BASE_PURESIZE): Increase to 1310000.
Dan Nicolaescu <dann@ics.uci.edu>
parents:
104067
diff
changeset
|
290 "gainsboro" "light grey" "gray" "dark grey" "dim gray" "black" )) |
104066 | 291 "List of basic colors available on color displays. |
292 For X, the list comes from the `rgb.txt' file,v 10.41 94/02/20. | |
293 For Nextstep, this is a list of non-PANTONE colors returned by | |
294 the operating system.") | |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
295 |
96882 | 296 ;; arch-tag: 2a128601-99cc-401e-9dff-0ee6a36102ef |
96830
a8aac59d9c7a
* term/x-win.el (x-handle-switch, x-handle-numeric-switch)
Dan Nicolaescu <dann@ics.uci.edu>
parents:
diff
changeset
|
297 ;;; common-win.el ends here |