From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 16 Sep 1994 00:41:59 +0000 (+0000)
Subject: (syms_of_editfns): Make Vsystem_name and Vuser...name lisp variables again.
X-Git-Tag: emacs-19.34~7083
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f43754f6a0907d0b25d8ca844ecab0688d466398;p=emacs.git

(syms_of_editfns): Make Vsystem_name and Vuser...name lisp variables again.
---

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);