Commit 56d513e6 authored by Adrian Robert's avatar Adrian Robert
Browse files

(ns_set_name_iconic, ns_set_name, ns_set_name_as_filename, x-create-frame,...

(ns_set_name_iconic, ns_set_name, ns_set_name_as_filename, x-create-frame, ns-get-resource, ns-set-resource): Use ns_app_name instead of NSProcessInfo call.
parent 3988c7d6
......@@ -501,8 +501,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
name = f->icon_name;
if (NILP (name))
name = build_string
([[[NSProcessInfo processInfo] processName] UTF8String]);
name = build_string([ns_app_name UTF8String]);
else
CHECK_STRING (name);
......@@ -542,8 +541,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
return;
if (NILP (name))
name = build_string
([[[NSProcessInfo processInfo] processName] UTF8String]);
name = build_string([ns_app_name UTF8String]);
f->name = name;
......@@ -635,8 +633,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
name = f->icon_name;
if (NILP (name))
name = build_string
([[[NSProcessInfo processInfo] processName] UTF8String]);
name = build_string([ns_app_name UTF8String]);
else
CHECK_STRING (name);
......@@ -1130,8 +1127,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
be set. */
if (EQ (name, Qunbound) || NILP (name) || (XTYPE (name) != Lisp_String))
{
f->name
= build_string ([[[NSProcessInfo processInfo] processName] UTF8String]);
f->name = build_string ([ns_app_name UTF8String]);
f->explicit_name =0;
}
else
......@@ -1499,9 +1495,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
check_ns ();
if (NILP (owner))
owner = build_string
([[[NSProcessInfo processInfo] processName] UTF8String]);
/* CHECK_STRING (owner); this should be just "Emacs" */
owner = build_string([ns_app_name UTF8String]);
CHECK_STRING (name);
/*fprintf (stderr, "ns-get-resource checking resource '%s'\n", SDATA (name)); */
......@@ -1524,9 +1518,7 @@ Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
{
check_ns ();
if (NILP (owner))
owner
= build_string ([[[NSProcessInfo processInfo] processName] UTF8String]);
CHECK_STRING (owner);
owner = build_string ([ns_app_name UTF8String]);
CHECK_STRING (name);
if (NILP (value))
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment