diff options
| author | Richard M. Stallman | 1993-07-30 22:48:30 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-30 22:48:30 +0000 |
| commit | f5ff08b04f132e199426aa57b90db3c73da3d519 (patch) | |
| tree | 733c69e529d854964999148d64527ff5b8afaa29 /src | |
| parent | 304188d6168f3d361c9c65df2ae289806b28abe1 (diff) | |
| download | emacs-f5ff08b04f132e199426aa57b90db3c73da3d519.tar.gz emacs-f5ff08b04f132e199426aa57b90db3c73da3d519.zip | |
(syms_of_editfns): Just staticpro Vuser...name
and Vsystem_name; don't make them Lisp variables.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 15 |
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.") | |||
| 1492 | void | 1492 | void |
| 1493 | syms_of_editfns () | 1493 | syms_of_editfns () |
| 1494 | { | 1494 | { |
| 1495 | DEFVAR_LISP ("system-name", &Vsystem_name, | 1495 | staticpro (&Vuser_name); |
| 1496 | "The name of the machine Emacs is running on."); | 1496 | staticpro (&Vuser_full_name); |
| 1497 | 1497 | staticpro (&Vuser_real_name); | |
| 1498 | DEFVAR_LISP ("user-full-name", &Vuser_full_name, | 1498 | staticpro (&Vsystem_name); |
| 1499 | "The full name of the user logged in."); | ||
| 1500 | |||
| 1501 | DEFVAR_LISP ("user-name", &Vuser_name, | ||
| 1502 | "The user's name, based on the effective uid."); | ||
| 1503 | |||
| 1504 | DEFVAR_LISP ("user-real-name", &Vuser_real_name, | ||
| 1505 | "The user's name, base upon the real uid."); | ||
| 1506 | 1499 | ||
| 1507 | defsubr (&Schar_equal); | 1500 | defsubr (&Schar_equal); |
| 1508 | defsubr (&Sgoto_char); | 1501 | defsubr (&Sgoto_char); |