From f43754f6a0907d0b25d8ca844ecab0688d466398 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 16 Sep 1994 00:41:59 +0000 Subject: [PATCH] (syms_of_editfns): Make Vsystem_name and Vuser...name lisp variables again. --- src/editfns.c | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index 46b5d772c42..554df33b503 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -1956,10 +1956,17 @@ Transposing beyond buffer boundaries is an error.") 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); -- 2.39.5