From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 30 Dec 1993 10:08:46 +0000 (+0000)
Subject: (Femacs_pid): New function.
X-Git-Tag: emacs-19.34~10478
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7fd233b39ad0a1ea4088c026a666976667a6dec0;p=emacs.git

(Femacs_pid): New function.
(syms_of_editfns): Define it for Lisp.
---

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);