From f5ff08b04f132e199426aa57b90db3c73da3d519 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 Jul 1993 22:48:30 +0000 Subject: [PATCH] (syms_of_editfns): Just staticpro Vuser...name and Vsystem_name; don't make them Lisp variables. --- src/editfns.c | 15 ++++----------- 1 file changed, 4 insertions(+), 11 deletions(-) diff --git a/src/editfns.c b/src/editfns.c index d10e774c92..f404732a9e 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); -- 2.20.1