Lines Matching +defs:command +defs:args
30 ;; pertaining to W32 are processed and removed from the command line. The
146 (defvar x-invocation-args)
148 (defvar x-command-line-resources nil)
152 (let ((aelt (assoc switch command-line-x-option-alist)))
154 (push (cons (nth 3 aelt) (or (nth 4 aelt) (pop x-invocation-args)))
159 (let ((aelt (assoc switch command-line-x-option-alist)))
161 (push (cons (nth 3 aelt) (string-to-number (pop x-invocation-args)))
166 (let ((aelt (assoc switch command-line-x-option-alist)))
168 (push (cons (nth 3 aelt) (or (nth 4 aelt) (pop x-invocation-args)))
177 (or (consp x-invocation-args)
179 (setq x-command-line-resources
180 (if (null x-command-line-resources)
181 (car x-invocation-args)
182 (concat x-command-line-resources "\n" (car x-invocation-args))))
183 (setq x-invocation-args (cdr x-invocation-args)))
187 (let* ((geo (x-parse-geometry (car x-invocation-args)))
209 (setq x-invocation-args (cdr x-invocation-args))))
215 (or (consp x-invocation-args)
217 (setq x-resource-name (pop x-invocation-args))
225 (setq x-display-name (pop x-invocation-args)))
227 (defun x-handle-args (args)
228 "Process the X-related command line options in ARGS.
230 `x-invocation args' from which the X-related things are extracted, first
234 ;; We use ARGS to accumulate the args that we don't handle here, to return.
235 (setq x-invocation-args args
236 args nil)
237 (while (and x-invocation-args
238 (not (equal (car x-invocation-args) "--")))
239 (let* ((this-switch (car x-invocation-args))
242 (setq x-invocation-args (cdr x-invocation-args))
251 (setq completion (try-completion this-switch command-line-x-option-alist))
256 (let ((elt (assoc completion command-line-x-option-alist)))
261 (setq aelt (assoc this-switch command-line-x-option-alist))
265 (let ((x-invocation-args
266 (cons argval x-invocation-args)))
269 (push orig-this-switch args))))
270 (nconc (nreverse args) x-invocation-args))
1049 (interactive) (w32-send-sys-command ?\xf100)))
1061 (setq command-line-args (x-handle-args command-line-args))
1075 x-command-line-resources
1079 x-command-line-resources))
1112 ;; A font specification in command line argument (i.e. -fn XXXX)
1136 ;; of the alist, so that anything specified on the command line takes