![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to xterm.el CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp / term|
Return to xterm.el CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / emacs / lisp / term |
1.1 root 1: ;; Parse switches controlling how Emacs interfaces with X window system.
2: ;; Copyright (C) 1985 Richard M. Stallman.
3:
4: ;; This file is part of GNU Emacs.
5:
6: ;; GNU Emacs is distributed in the hope that it will be useful,
7: ;; but WITHOUT ANY WARRANTY. No author or distributor
8: ;; accepts responsibility to anyone for the consequences of using it
9: ;; or for whether it serves any particular purpose or works at all,
10: ;; unless he says so in writing. Refer to the GNU Emacs General Public
11: ;; License for full details.
12:
13: ;; Everyone is granted permission to copy, modify and redistribute
14: ;; GNU Emacs, but only under the conditions described in the
15: ;; GNU Emacs General Public License. A copy of this license is
16: ;; supposed to have been given to you along with GNU Emacs so you
17: ;; can know your rights and responsibilities. It should be in a
18: ;; file named COPYING. Among other things, the copyright notice
19: ;; and this notice must be preserved on all copies.
20:
21:
22: (defvar x-switches nil
23: "Alist of command switches and values for X window system interface.
24: You can set this in your init file, if you want some defaults
25: for these switches. Example:
26: (setq x-switches '((\"-r\" . t) (\"-font\" . \"foo\") (\"-b\" . \"8\")))")
27:
28: (setq command-switch-alist
29: (append '(("-r" . x-handle-switch)
30: ("-i" . x-handle-switch)
31: ("-font" . x-handle-switch)
32: ("-w" . x-handle-switch)
33: ("-d" . x-handle-switch)
34: ("-b" . x-handle-switch)
35: ("-fg" . x-handle-switch)
36: ("-bg" . x-handle-switch)
37: ("-bd" . x-handle-switch)
38: ("-cr" . x-handle-switch)
39: ("-ms" . x-handle-switch))
40: command-switch-alist))
41:
42: ;; This is run after the command args are parsed.
43: (defun x-handle-switch (switch)
44: (if (x-handle-switch-1 switch (car command-line-args))
45: (setq command-line-args (cdr command-line-args))))
46:
47: (defun x-handle-switch-1 (switch arg)
48: (cond ((string= switch "-r")
49: (x-flip-color)
50: nil)
51: ((string= switch "-i")
52: (x-set-icon t)
53: nil)
54: ((string= switch "-font")
55: (x-set-font arg)
56: t)
57: ((string= switch "-b")
58: (x-set-border-width (string-to-int arg))
59: t)
60: ((string= switch "-d")
61: (x-new-display arg)
62: t)
63: ((string= switch "-w")
64: (x-create-x-window arg)
65: t)
66: ((string= switch "-fg")
67: (x-set-foreground-color arg)
68: t)
69: ((string= switch "-bg")
70: (x-set-background-color arg)
71: t)
72: ((string= switch "-bd")
73: (x-set-border-color arg)
74: t)
75: ((string= switch "-cr")
76: (x-set-cursor-color arg)
77: t)
78: ((string= switch "-ms")
79: (x-set-mouse-color arg)
80: t)))
81:
82: ;; Convert a string of the form "WWxHH+XO+YO",
83: ;; where WW, HH, XO and YO are numerals,
84: ;; into a list (WW HH XO YO).
85: ;; "xHH" may be omitted; then 0 is used for HH.
86: ;; XO and YO may be preceded by - instead of + to make them negative.
87: ;; Either YO or both XO and YO may be omitted; zero is used.
88: (defun x-parse-edge-spec (arg)
89: (let ((cols-by-font 0)
90: (rows-by-font 0)
91: (xoffset 0)
92: (yoffset 0))
93: (if (string-match "^=" arg)
94: (setq cols-by-font (x-extract-number))
95: (error "Invalid X window size/position spec"))
96: (if (string-match "^x" arg) ;get rows-by-font
97: (setq rows-by-font (x-extract-number)))
98: (if (string-match "^[-+]" arg)
99: (setq xoffset (x-extract-number)))
100: (if (string-match "^[-+]" arg)
101: (setq yoffset (x-extract-number)))
102: (or (equal arg "")
103: (error "Invalid X window size/position spec"))
104: (list cols-by-font rows-by-font xoffset yoffset)))
105:
106: ;; Subroutine to extract the next numeral from the front of arg,
107: ;; returning it and shortening arg to remove its text.
108: ;; If arg is negative, subtract 1 before returning it.
109: (defun x-extract-number ()
110: (if (string-match "^[x=]" arg)
111: (setq arg (substring arg 1)))
112: (or (string-match "[-+]?[0-9]+" arg)
113: (error "Invalid X window size/position spec"))
114: (prog1
115: (+ (string-to-int arg)
116: (if (string-match "^-" arg) -1 0))
117: (setq arg
118: (substring arg
119: (or (string-match "[^0-9]" arg 1)
120: (length arg))))))
121:
122: (defun x-get-default-args ()
123: (let (value)
124: (if (not (string= (setq value (x-get-default "bodyfont")) ""))
125: (x-handle-switch-1 "-font" value))
126: (if (string-match "On" (x-get-default "reversevideo"))
127: (x-handle-switch-1 "-r" t))
128: (if (string-match "On" (x-get-default "bitmapicon"))
129: (x-handle-switch-1 "-i" t))
130: (if (not (string= (setq value (x-get-default "borderwidth")) ""))
131: (x-handle-switch-1 "-b" value))
132: (if (not (string= (setq value (x-get-default "foreground")) ""))
133: (x-handle-switch-1 "-fg" value))
134: (if (not (string= (setq value (x-get-default "background")) ""))
135: (x-handle-switch-1 "-bg" value))
136: (if (not (string= (setq value (x-get-default "border")) ""))
137: (x-handle-switch-1 "-bd" value))
138: (if (not (string= (setq value (x-get-default "cursor")) ""))
139: (x-handle-switch-1 "-cr" value))
140: (if (not (string= (setq value (x-get-default "mouse")) ""))
141: (x-handle-switch-1 "-ms" value))))
142:
143: (defun x-new-display (display)
144: "This function takes one argument, the display where you wish to
145: continue your editing session. Your current window will be unmapped and
146: the current display will be closed. The new X display will be opened and
147: the rubber-band outline of the new window will appear on the new X display."
148: (interactive "sDisplay to switch emacs to: ")
149: (x-change-display display)
150: (x-get-default-args))
151:
152: ;; So far we have only defined some functions.
153: ;; Now we start processing X-related switches
154: ;; and redefining commands and variables,
155: ;; only if Emacs has been compiled to support direct interface to X.
156:
157: (if (fboundp 'x-change-display)
158: (progn
159: ;; xterm.c depends on using interrupt-driven input.
160: (set-input-mode t nil)
161:
162: ;; Not defvar! This is not DEFINING this variable, just specifying
163: ;; a value for it.
164: (setq term-setup-hook 'x-pop-up-window)
165:
166: (load "x-mouse" t t)
167: (put 'suspend-emacs 'disabled t)
168: (global-set-key "\C-z" 'undefined)
169: (global-set-key "\C-x\C-z" 'undefined)
170:
171: (x-get-default-args)
172:
173: ;; If used has .Xdefaults file, process switch settings for Emacs
174: ;; recorded there.
175: ;;(if user
176: ;; (let ((Xdefs-file (concat "~" user "/.Xdefaults")))
177: ;; (if (file-exists-p Xdefs-file)
178: ;; (x-get-default-args Xdefs-file))))
179:
180: ;; Process switch settings made by .emacs file.
181: (while x-switches
182: (x-handle-switch-1 (car (car x-switches)) (cdr (car x-switches)))
183: (setq x-switches (cdr x-switches)))
184: ))
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.