Mercurial > emacs
changeset 3081:63c51f1e885b
Pass x-command-line-resources to x-open-connection.
(x-command-line-resources): New variable.
(x-handle-rn-switch): New function.
(command-switch-alist): Add -rn.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 25 May 1993 16:21:12 +0000 |
| parents | cc39a490e593 |
| children | 950a86899def |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Tue May 25 15:36:47 1993 +0000 +++ b/lisp/term/x-win.el Tue May 25 16:21:12 1993 +0000 @@ -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 @@ (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)