(format "Creation of the standard fontset failed: %s" err)
:error)))
- (x-open-connection (system-name) x-command-line-resources t)
+ (x-open-connection (or (system-name) "") x-command-line-resources t)
;; Add GNUstep menu items Services, Hide and Quit. Rename Help to Info
;; and put it first (i.e. omit from menu-bar-final-items.
memset (dpyinfo, 0, sizeof (*dpyinfo));
dpyinfo->name_list_element = Fcons (display_name, Qnil);
- dpyinfo->w32_id_name = xmalloc (SCHARS (Vinvocation_name)
- + SCHARS (Vsystem_name) + 2);
- sprintf (dpyinfo->w32_id_name, "%s@%s",
- SDATA (Vinvocation_name), SDATA (Vsystem_name));
+ if (STRINGP (Vsystem_name))
+ {
+ dpyinfo->w32_id_name = xmalloc (SCHARS (Vinvocation_name)
+ + SCHARS (Vsystem_name) + 2);
+ sprintf (dpyinfo->w32_id_name, "%s@%s",
+ SDATA (Vinvocation_name), SDATA (Vsystem_name));
+ }
+ else
+ dpyinfo->w32_id_name = xlispstrdup (Vinvocation_name);
/* Default Console mode values - overridden when running in GUI mode
with values obtained from system metrics. */