1 files changed, 4 insertions, 11 deletions

diff --git a/src/editfns.c b/src/editfns.c
index d10e774c927..f404732a9e7 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1492,17 +1492,10 @@ Case is ignored if `case-fold-search' is non-nil in the current buffer.")
 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);