Mercurial > emacs
changeset 39774:b34a792f4234
(Fuser_uid, Fuser_real_uid): Use make_fixnum_or_float.
(Fuser_full_name): Fix bug treating a float as a fixnum.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 11 Oct 2001 15:37:39 +0000 |
| parents | 51f74f0f7fce |
| children | 280975f8c65e |
| files | src/editfns.c |
| diffstat | 1 files changed, 9 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Thu Oct 11 15:37:13 2001 +0000 +++ b/src/editfns.c Thu Oct 11 15:37:39 2001 +0000 @@ -1197,17 +1197,19 @@ } DEFUN ("user-uid", Fuser_uid, Suser_uid, 0, 0, 0, - "Return the effective uid of Emacs, as an integer.") + "Return the effective uid of Emacs.\n\ +Value is an integer or float, depending on the value.") () { - return make_number (geteuid ()); + return make_fixnum_or_float (geteuid ()); } DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0, - "Return the real uid of Emacs, as an integer.") + "Return the real uid of Emacs.\n\ +Value is an integer or float, depending on the value.") () { - return make_number (getuid ()); + return make_fixnum_or_float (getuid ()); } DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0, @@ -1215,8 +1217,8 @@ If the full name corresponding to Emacs's userid is not known,\n\ return \"unknown\".\n\ \n\ -If optional argument UID is an integer, return the full name of the user\n\ -with that uid, or nil if there is no such user.\n\ +If optional argument UID is an integer or float, return the full name\n\ +of the user with that uid, or nil if there is no such user.\n\ If UID is a string, return the full name of the user with that login\n\ name, or nil if there is no such user.") (uid) @@ -1229,7 +1231,7 @@ if (NILP (uid)) return Vuser_full_name; else if (NUMBERP (uid)) - pw = (struct passwd *) getpwuid (XINT (uid)); + pw = (struct passwd *) getpwuid ((uid_t) XFLOATINT (uid)); else if (STRINGP (uid)) pw = (struct passwd *) getpwnam (XSTRING (uid)->data); else