(USER_FULL_NAME): Define to pw->pw_gecos if undefined.

(Fuser_full_name): Use USER_FULL_NAME instead of a literal pw->pw_gecos.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/editfns.c b/src/editfns.c
index 71973cec914..1915de5f7c7 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -67,6 +67,10 @@ along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.  */
 #define NULL 0
 #endif
 
+#ifndef USER_FULL_NAME
+#define USER_FULL_NAME pw->pw_gecos
+#endif
+
 #ifndef USE_CRT_DLL
 extern char **environ;
 #endif
@@ -1370,7 +1374,7 @@ name, or nil if there is no such user.  */)
   if (!pw)
     return Qnil;
 
-  p = (unsigned char *) pw->pw_gecos;
+  p = (unsigned char *) USER_FULL_NAME;
   /* Chop off everything after the first comma. */
   q = (unsigned char *) index (p, ',');
   full = make_string (p, q ? q - p : strlen (p));