Commit ac988277 authored by Karl Heuer's avatar Karl Heuer

(init_editfns): Call init_system_name instead of get_system_name.

(get_system_name): New function, now just uses Vsystem_name.
parent 5d6be39f
......@@ -55,15 +55,7 @@ init_editfns ()
Lisp_Object tem;
/* Set up system_name even when dumping. */
Vsystem_name = build_string (get_system_name ());
p = XSTRING (Vsystem_name)->data;
while (*p)
{
if (*p == ' ' || *p == '\t')
*p = '-';
p++;
}
init_system_name ();
#ifndef CANNOT_DUMP
/* Don't bother with this on initial start when just dumping out */
......@@ -539,6 +531,13 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0,
return Vsystem_name;
}
/* For the benefit of callers who don't want to include lisp.h */
char *
get_system_name ()
{
return XSTRING (Vsystem_name)->data;
}
DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0,
"Return the process ID of Emacs, as an integer.")
()
......
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