aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman1996-12-15 20:14:13 +0000
committerRichard M. Stallman1996-12-15 20:14:13 +0000
commit3347526ce7af0facc2a10c346b7f65880cd9f684 (patch)
treeddad607e352100fe79b6f195520adc1e18f357b3 /src
parent0a26b136cd6b721be4270edba5b52dbd712a2665 (diff)
downloademacs-3347526ce7af0facc2a10c346b7f65880cd9f684.tar.gz
emacs-3347526ce7af0facc2a10c346b7f65880cd9f684.zip
(Fuser_full_name): Return nil if the specified user doesn't exist.
(init_editfns): Set Vuser_full_name to "unknown" if the user name can't be resolved.
Diffstat (limited to 'src')
-rw-r--r--src/editfns.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/editfns.c b/src/editfns.c
index 2599dc9d5a1..9ff24cba8f3 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -109,6 +109,8 @@ init_editfns ()
109 p = (unsigned char *) getenv ("NAME"); 109 p = (unsigned char *) getenv ("NAME");
110 if (p) 110 if (p)
111 Vuser_full_name = build_string (p); 111 Vuser_full_name = build_string (p);
112 else if (NILP (Vuser_full_name))
113 Vuser_full_name = build_string ("unknown");
112} 114}
113 115
114DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0, 116DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0,
@@ -585,7 +587,7 @@ name, or \"unknown\" if no such user could be found.")
585 error ("Invalid UID specification"); 587 error ("Invalid UID specification");
586 588
587 if (!pw) 589 if (!pw)
588 return build_string ("unknown"); 590 return Qnil;
589 591
590 p = (unsigned char *) USER_FULL_NAME; 592 p = (unsigned char *) USER_FULL_NAME;
591 /* Chop off everything after the first comma. */ 593 /* Chop off everything after the first comma. */