Commit f43754f6 authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 270cc80e
...@@ -1956,10 +1956,17 @@ Transposing beyond buffer boundaries is an error.") ...@@ -1956,10 +1956,17 @@ Transposing beyond buffer boundaries is an error.")
void void
syms_of_editfns () syms_of_editfns ()
{ {
staticpro (&Vuser_name); DEFVAR_LISP ("system-name", &Vsystem_name,
staticpro (&Vuser_full_name); "The name of the machine Emacs is running on.");
staticpro (&Vuser_real_name);
staticpro (&Vsystem_name); 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 (&Schar_equal);
defsubr (&Sgoto_char); defsubr (&Sgoto_char);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment