comparison src/editfns.c @ 8771:31b8e48045f3

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

8770:b58e8634df8b


void
syms_of_editfns ()
{
  staticpro (&Vuser_name);
  staticpro (&Vuser_full_name);
  staticpro (&Vuser_real_name);
  staticpro (&Vsystem_name);

  defsubr (&Schar_equal);
  defsubr (&Sgoto_char);
  defsubr (&Sstring_to_char);
  defsubr (&Schar_to_string);

8771:31b8e48045f3


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, 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);
  defsubr (&Sstring_to_char);
  defsubr (&Schar_to_string);