Mercurial > emacs
changeset 8771:31b8e48045f3
(syms_of_editfns): Make Vsystem_name and Vuser...name lisp variables again.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 16 Sep 1994 00:41:59 +0000 |
| parents | b58e8634df8b |
| children | c0a21329d9a7 |
| files | src/editfns.c |
| diffstat | 1 files changed, 11 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/src/editfns.c Fri Sep 16 00:03:20 1994 +0000 +++ b/src/editfns.c Fri Sep 16 00:41:59 1994 +0000 @@ -1956,10 +1956,17 @@ void syms_of_editfns () { - staticpro (&Vuser_name); - staticpro (&Vuser_full_name); - staticpro (&Vuser_real_name); - staticpro (&Vsystem_name); + DEFVAR_LISP ("system-name", &Vsystem_name, + "The name of the machine Emacs is running on."); + + DEFVAR_LISP ("user-full-name", &Vuser_full_name, + "The full name of the user logged in."); + + DEFVAR_LISP ("user-name", &Vuser_name, + "The user's name, taken from environment variables if possible."); + + DEFVAR_LISP ("user-real-name", &Vuser_real_name, + "The user's name, based upon the real uid only."); defsubr (&Schar_equal); defsubr (&Sgoto_char);