From 1f8255f228c8f0e0f82cdb68bbe61a9fdaaef9b8 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jun 1994 17:42:38 +0000 Subject: [PATCH] (x_term_init): New args xrm_option and resource_string. Pass an -xrm option to XtAppInitialize if appropriate. --- src/xterm.c | 22 +++++++++++++++------- 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/src/xterm.c b/src/xterm.c index a6f572aa05c..fd7e12c1096 100644 --- a/src/xterm.c +++ b/src/xterm.c @@ -6039,8 +6039,10 @@ static XrmOptionDescRec emacs_options[] = { #endif /* USE_X_TOOLKIT */ void -x_term_init (display_name) +x_term_init (display_name, xrm_option, resource_name) char *display_name; + char *xrm_option; + char *resource_name; { Lisp_Object frame; char *defaultvalue; @@ -6055,13 +6057,19 @@ x_term_init (display_name) x_focus_frame = x_highlight_frame = 0; #ifdef USE_X_TOOLKIT - argv = (char **) XtMalloc (5 * sizeof (char *)); - argv [0] = ""; - argv [1] = "-display"; - argv [2] = display_name; - argv [3] = "-name"; - argv [4] = "emacs"; + argv = (char **) XtMalloc (7 * sizeof (char *)); + argv[0] = ""; + argv[1] = "-display"; + argv[2] = display_name; + argv[3] = "-name"; + /* Usually `emacs', but not always. */ + argv[4] = resource_name; argc = 5; + if (xrm_option) + { + argv[argc++] = "-xrm"; + argv[argc++] = xrm_option; + } Xt_app_shell = XtAppInitialize (&Xt_app_con, "Emacs", emacs_options, XtNumber (emacs_options), &argc, argv, -- 2.39.5