diff options
author | Jules Tamagnan <jtamagnan@gmail.com> | 2018-10-30 10:22:03 -0700 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2018-11-10 10:06:50 +0200 |
commit | ffb4c76d99ba9d4f5a0d876c23b2837d31291141 (patch) | |
tree | 799541b022a0ff4f28d846bcbb7c51e79a5d9a92 /src/editfns.c | |
parent | 4f0e54223a60a34818365475440e023747eab7e9 (diff) | |
download | emacs-ffb4c76d99ba9d4f5a0d876c23b2837d31291141.tar.gz |
src/editfns.c (group-name): New function.
Diffstat (limited to 'src/editfns.c')
-rw-r--r-- | src/editfns.c | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/editfns.c b/src/editfns.c index e995b38a44d..15a0fa76597 100644 --- 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); |