mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Pass x-command-line-resources to x-open-connection.

Browse source 
(x-command-line-resources): New variable.
(x-handle-rn-switch): New function.
(command-switch-alist): Add -rn.
This commit is contained in:
Richard M. Stallman 1993-05-25 16:21:12 +00:00
parent 6c703f4ab9
commit f6f6d98c0f
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -76,6 +76,8 @@
(require 'select)
(require 'menu-bar)
(defvar x-command-line-resources nil)
(setq command-switch-alist
(append '(("-bw" . x-handle-numeric-switch)
("-d" . x-handle-display)
@ -98,6 +100,7 @@
("-itype" . x-handle-switch)
("-i" . x-handle-switch)
("-iconic" . x-handle-switch)
("-rn" . x-handle-rn-switch)
("-cr" . x-handle-switch)
("-vb" . x-handle-switch)
("-hb" . x-handle-switch)
@ -152,6 +155,11 @@
x-invocation-args
(cdr x-invocation-args)))))
;; Handle the -rn option.
(defun x-handle-rn-switch (switch)
(setq x-command-line-resources (car x-invocation-args))
(setq x-invocation-args (cdr x-invocation-args)))
;; Handle the geometry option
(defun x-handle-geometry (switch)
(setq initial-frame-alist
@ -508,7 +516,8 @@ This returns ARGS with the arguments that have been processed removed."
(setq command-line-args (x-handle-args command-line-args))
(x-open-connection (or x-display-name
(setq x-display-name (getenv "DISPLAY"))))
(setq x-display-name (getenv "DISPLAY")))
x-command-line-resources)
(setq frame-creation-function 'x-create-frame-with-faces)