# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 744072510 0
# Node ID 74004fb63311f11577da6d870d9399db7cf86d94
# Parent  5731da0436e87d433947d167e1efaa9ebd5e2671
(syms_of_editfns): Just staticpro Vuser...name
and Vsystem_name; don't make them Lisp variables.

diff -r 5731da0436e8 -r 74004fb63311 src/editfns.c
--- a/src/editfns.c	Fri Jul 30 22:43:39 1993 +0000
+++ b/src/editfns.c	Fri Jul 30 22:48:30 1993 +0000
@@ -1492,17 +1492,10 @@
 void
 syms_of_editfns ()
 {
-  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, based on the effective uid.");
-
-  DEFVAR_LISP ("user-real-name", &Vuser_real_name,
-	       "The user's name, base upon the real uid.");
+  staticpro (&Vuser_name);
+  staticpro (&Vuser_full_name);
+  staticpro (&Vuser_real_name);
+  staticpro (&Vsystem_name);
 
   defsubr (&Schar_equal);
   defsubr (&Sgoto_char);