Commit 8769d648 authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

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