procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1991-07-11 22:55:55 +00:00
parent 19a1d682fa
commit 8769d6482a
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/term/x-win.el
View file

@ -167,15 +167,13 @@
(defvar x-invocation-args nil)
(defun x-handle-args ()
"Here the X-related command line options are processed, before the user's
startup file is loaded. These are present in ARGS (see startup.el).
They are copied to x-invocation args from which the X-related things
are extracted, first the switch (e.g., \"-fg\") in the following code,
and possible values (e.g., \"black\") in the option handler code (e.g.,
x-handle-switch).
When finished, only things not pertaining to X (e.g., \"-q\", filenames)
are left in ARGS."
(defun x-handle-args (args)
"Here the X-related command line options in ARGS are processed,
before the user's startup file is loaded. They are copied to
x-invocation args from which the X-related things are extracted, first
the switch (e.g., \"-fg\") in the following code, and possible values
(e.g., \"black\") in the option handler code (e.g., x-handle-switch).
This returns ARGS with the arguments that have been processed removed."
(setq x-invocation-args args
args nil)
(while x-invocation-args
@ -633,7 +631,7 @@ are left in ARGS."
(x-open-connection (or x-display-name
(setq x-display-name (getenv "DISPLAY"))))
(x-read-resources)
(x-handle-args)
(setq command-line-args (x-handle-args command-line-args))
(x-pop-initial-window)
(setq suspend-hook