From 7fd233b39ad0a1ea4088c026a666976667a6dec0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Dec 1993 10:08:46 +0000 Subject: [PATCH] (Femacs_pid): New function. (syms_of_editfns): Define it for Lisp. --- src/editfns.c | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/src/editfns.c b/src/editfns.c index e555168ecfd..8983aa4aea4 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -527,6 +527,13 @@ DEFUN ("system-name", Fsystem_name, Ssystem_name, 0, 0, 0, return Vsystem_name; } +DEFUN ("emacs-pid", Femacs_pid, Semacs_pid, 0, 0, 0, + "Return the process ID of Emacs, as an integer.") + () +{ + return make_number (getpid ()); +} + DEFUN ("current-time", Fcurrent_time, Scurrent_time, 0, 0, 0, "Return the current time, as the number of seconds since 12:00 AM January 1970.\n\ The time is returned as a list of three integers. The first has the\n\ @@ -1628,6 +1635,7 @@ syms_of_editfns () defsubr (&Suser_uid); defsubr (&Suser_real_uid); defsubr (&Suser_full_name); + defsubr (&Semacs_pid); defsubr (&Scurrent_time); defsubr (&Scurrent_time_string); defsubr (&Scurrent_time_zone); -- 2.39.5