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