Mercurial > emacs
changeset 7907:148ad20d6774
(init_editfns): Call init_system_name instead of get_system_name.
(get_system_name): New function, now just uses Vsystem_name.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 15 Jun 1994 05:28:51 +0000 |
| parents | 1d64f77001be |
| children | 2d605a73a1fd |
| files | src/editfns.c |
| diffstat | 1 files changed, 8 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Wed Jun 15 05:27:38 1994 +0000 +++ b/src/editfns.c Wed Jun 15 05:28:51 1994 +0000 @@ -55,15 +55,7 @@ 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 @@ 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.") ()