diff options
| author | Karl Heuer | 1994-09-16 00:41:59 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-09-16 00:41:59 +0000 |
| commit | f43754f6a0907d0b25d8ca844ecab0688d466398 (patch) | |
| tree | ad1b464a9e5e397e1120a0a6bd126943ecfa12b1 /src | |
| parent | 270cc80e38287c231c9d8a5e38c57f3cb015281e (diff) | |
| download | emacs-f43754f6a0907d0b25d8ca844ecab0688d466398.tar.gz emacs-f43754f6a0907d0b25d8ca844ecab0688d466398.zip | |
(syms_of_editfns): Make Vsystem_name and Vuser...name lisp variables again.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c index 46b5d772c42..554df33b503 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -1956,10 +1956,17 @@ Transposing beyond buffer boundaries is an error.") | |||
| 1956 | void | 1956 | void |
| 1957 | syms_of_editfns () | 1957 | syms_of_editfns () |
| 1958 | { | 1958 | { |
| 1959 | staticpro (&Vuser_name); | 1959 | DEFVAR_LISP ("system-name", &Vsystem_name, |
| 1960 | staticpro (&Vuser_full_name); | 1960 | "The name of the machine Emacs is running on."); |
| 1961 | staticpro (&Vuser_real_name); | 1961 | |
| 1962 | staticpro (&Vsystem_name); | 1962 | DEFVAR_LISP ("user-full-name", &Vuser_full_name, |
| 1963 | "The full name of the user logged in."); | ||
| 1964 | |||
| 1965 | DEFVAR_LISP ("user-name", &Vuser_name, | ||
| 1966 | "The user's name, taken from environment variables if possible."); | ||
| 1967 | |||
| 1968 | DEFVAR_LISP ("user-real-name", &Vuser_real_name, | ||
| 1969 | "The user's name, based upon the real uid only."); | ||
| 1963 | 1970 | ||
| 1964 | defsubr (&Schar_equal); | 1971 | defsubr (&Schar_equal); |
| 1965 | defsubr (&Sgoto_char); | 1972 | defsubr (&Sgoto_char); |