src/editfns.c (group-name): New function.

diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index cb337573259a5bacad42783a28bb2d9b6b0c2b1a..6d1b3f3dbc941368b44b00155bbf59e732b5a8ff 100644 (file)
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -1230,6 +1230,11 @@ groups on the system.  If Emacs cannot retrieve this information, the
 return value is @code{nil}.
 @end defun
 
+@defun user-login-name gid
+This runction returns the group name that corresponds to @var{gid},
+or @code{nil} if there is no such group.
+@end defun
+
 
 @node Time of Day
 @section Time of Day

diff --git a/etc/NEWS b/etc/NEWS
index 29bbde9395e69ed4e0683ff44f9ca0f4ea80b0f1..c11b9988e44cac05f956a5276958b34f66685649 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1263,6 +1263,9 @@ where there's no better alternative.  We believe that the incorrect
 uses of this function all but disappeared by now, so we are
 un-obsoleting it.
 
++++
+** New function 'group-name' returns a group name based on a group-GID
+
 \f
 * Changes in Emacs 27.1 on Non-Free Operating Systems
 

diff --git a/src/editfns.c b/src/editfns.c
index e995b38a44dc8c771660e73f2bc5932229dce168..15a0fa76597afdc93d08615f0a3413bbd5b4db72 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1143,6 +1143,21 @@ of the user with that uid, or nil if there is no such user.  */)
   return (pw ? build_string (pw->pw_name) : Qnil);
 }
 
+DEFUN ("group-name", Fgroup_name, Sgroup_name, 1, 1, 0,
+       doc: /* If argument GID is an integer or a float, return the login name
+of the group with that gid, or nil if there is no such GID.  */)
+  (Lisp_Object gid)
+{
+  struct group *gr;
+  gid_t id;
+
+  CONS_TO_INTEGER (gid, gid_t, id);
+  block_input ();
+  gr = getgrgid (id);
+  unblock_input ();
+  return (gr ? build_string (gr->gr_name) : Qnil);
+}
+
 DEFUN ("user-real-login-name", Fuser_real_login_name, Suser_real_login_name,
        0, 0, 0,
        doc: /* Return the name of the user's real uid, as a string.
@@ -4487,6 +4502,7 @@ it to be non-nil.  */);
   defsubr (&Sinsert_byte);
 
   defsubr (&Suser_login_name);
+  defsubr (&Sgroup_name);
   defsubr (&Suser_real_login_name);
   defsubr (&Suser_uid);
   defsubr (&Suser_real_uid);

diff --git a/test/src/editfns-tests.el b/test/src/editfns-tests.el
index 17b2c5107348fa8e3e493eea3ccd9ebf0eb63f1f..6ee0ab09f7b9904e68ab40cfcdcd5a7394d9e9bb 100644 (file)
--- a/test/src/editfns-tests.el
+++ b/test/src/editfns-tests.el
@@ -351,4 +351,11 @@
     (should (equal (format "%-#50.40x" v3)
                    "-0x000000003ffffffffffffffe000000000000000        "))))
 
+(ert-deftest group-name ()
+  (let ((list `((0 . "root")
+                (1000 . ,(user-login-name 1000))
+                (1212345 . nil))))
+    (dolist (test list)
+      (should (equal (group-name (car test)) (cdr test))))))
+
 ;;; editfns-tests.el ends here