Commit a1f17501 authored by Pavel Janík's avatar Pavel Janík

Put doc strings in comments.

parent e2ba787b
......@@ -4,7 +4,9 @@
get-buffer-process): Do not confuse make-docfile with doc strings
in comment.
* editfns.c (Fchar_to_string): Make doc string consistent with arguments.
* editfns.c (Fchar_to_string): Make doc string consistent with
arguments.
Put doc strings in comments.
* abbrev.c, minibuf.c: Put doc strings in comments.
......
......@@ -34,6 +34,7 @@ Boston, MA 02111-1307, USA. */
#include <unistd.h>
#endif
#define DOC_STRINGS_IN_COMMENTS
#include "lisp.h"
#include "intervals.h"
#include "buffer.h"
......@@ -164,8 +165,8 @@ init_editfns ()
}
DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0,
"Convert arg CHARACTER to a string containing that character.")
(character)
/* Convert arg CHARACTER to a string containing that character. */
(character))
Lisp_Object character;
{
int len;
......@@ -180,9 +181,9 @@ DEFUN ("char-to-string", Fchar_to_string, Schar_to_string, 1, 1, 0,
}
DEFUN ("string-to-char", Fstring_to_char, Sstring_to_char, 1, 1, 0,
"Convert arg STRING to a character, the first character of that string.\n\
A multibyte character is handled correctly.")
(string)
/* Convert arg STRING to a character, the first character of that string.
A multibyte character is handled correctly. */
(string))
register Lisp_Object string;
{
register Lisp_Object val;
......@@ -212,9 +213,9 @@ buildmark (charpos, bytepos)
}
DEFUN ("point", Fpoint, Spoint, 0, 0, 0,
"Return value of point, as an integer.\n\
Beginning of buffer is position (point-min)")
()
/* Return value of point, as an integer.
Beginning of buffer is position (point-min). */
())
{
Lisp_Object temp;
XSETFASTINT (temp, PT);
......@@ -222,8 +223,8 @@ Beginning of buffer is position (point-min)")
}
DEFUN ("point-marker", Fpoint_marker, Spoint_marker, 0, 0, 0,
"Return value of point, as a marker object.")
()
/* Return value of point, as a marker object. */
())
{
return buildmark (PT, PT_BYTE);
}
......@@ -241,12 +242,12 @@ clip_to_bounds (lower, num, upper)
}
DEFUN ("goto-char", Fgoto_char, Sgoto_char, 1, 1, "NGoto char: ",
"Set point to POSITION, a number or marker.\n\
Beginning of buffer is position (point-min), end is (point-max).\n\
If the position is in the middle of a multibyte form,\n\
the actual point is set at the head of the multibyte form\n\
except in the case that `enable-multibyte-characters' is nil.")
(position)
/* Set point to POSITION, a number or marker.
Beginning of buffer is position (point-min), end is (point-max).
If the position is in the middle of a multibyte form,
the actual point is set at the head of the multibyte form
except in the case that `enable-multibyte-characters' is nil. */
(position))
register Lisp_Object position;
{
int pos;
......@@ -299,24 +300,24 @@ region_limit (beginningp)
}
DEFUN ("region-beginning", Fregion_beginning, Sregion_beginning, 0, 0, 0,
"Return position of beginning of region, as an integer.")
()
/* Return position of beginning of region, as an integer. */
())
{
return region_limit (1);
}
DEFUN ("region-end", Fregion_end, Sregion_end, 0, 0, 0,
"Return position of end of region, as an integer.")
()
/* Return position of end of region, as an integer. */
())
{
return region_limit (0);
}
DEFUN ("mark-marker", Fmark_marker, Smark_marker, 0, 0, 0,
"Return this buffer's mark, as a marker object.\n\
Watch out! Moving this marker changes the mark position.\n\
If you set the marker not to point anywhere, the buffer will have no mark.")
()
/* Return this buffer's mark, as a marker object.
Watch out! Moving this marker changes the mark position.
If you set the marker not to point anywhere, the buffer will have no mark. */
())
{
return current_buffer->mark;
}
......@@ -556,10 +557,10 @@ find_field (pos, merge_at_boundary, beg, end)
DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, 0,
"Delete the field surrounding POS.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the value of point is used for POS.")
(pos)
/* Delete the field surrounding POS.
A field is a region of text with the same `field' property.
If POS is nil, the value of point is used for POS. */
(pos))
Lisp_Object pos;
{
int beg, end;
......@@ -570,10 +571,10 @@ If POS is nil, the value of point is used for POS.")
}
DEFUN ("field-string", Ffield_string, Sfield_string, 0, 1, 0,
"Return the contents of the field surrounding POS as a string.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the value of point is used for POS.")
(pos)
/* Return the contents of the field surrounding POS as a string.
A field is a region of text with the same `field' property.
If POS is nil, the value of point is used for POS. */
(pos))
Lisp_Object pos;
{
int beg, end;
......@@ -582,10 +583,10 @@ If POS is nil, the value of point is used for POS.")
}
DEFUN ("field-string-no-properties", Ffield_string_no_properties, Sfield_string_no_properties, 0, 1, 0,
"Return the contents of the field around POS, without text-properties.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the value of point is used for POS.")
(pos)
/* Return the contents of the field around POS, without text-properties.
A field is a region of text with the same `field' property.
If POS is nil, the value of point is used for POS. */
(pos))
Lisp_Object pos;
{
int beg, end;
......@@ -594,12 +595,12 @@ If POS is nil, the value of point is used for POS.")
}
DEFUN ("field-beginning", Ffield_beginning, Sfield_beginning, 0, 2, 0,
"Return the beginning of the field surrounding POS.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the value of point is used for POS.\n\
If ESCAPE-FROM-EDGE is non-nil and POS is at the beginning of its\n\
field, then the beginning of the *previous* field is returned.")
(pos, escape_from_edge)
/* Return the beginning of the field surrounding POS.
A field is a region of text with the same `field' property.
If POS is nil, the value of point is used for POS.
If ESCAPE-FROM-EDGE is non-nil and POS is at the beginning of its
field, then the beginning of the *previous* field is returned. */
(pos, escape_from_edge))
Lisp_Object pos, escape_from_edge;
{
int beg;
......@@ -608,12 +609,12 @@ field, then the beginning of the *previous* field is returned.")
}
DEFUN ("field-end", Ffield_end, Sfield_end, 0, 2, 0,
"Return the end of the field surrounding POS.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the value of point is used for POS.\n\
If ESCAPE-FROM-EDGE is non-nil and POS is at the end of its field,\n\
then the end of the *following* field is returned.")
(pos, escape_from_edge)
/* Return the end of the field surrounding POS.
A field is a region of text with the same `field' property.
If POS is nil, the value of point is used for POS.
If ESCAPE-FROM-EDGE is non-nil and POS is at the end of its field,
then the end of the *following* field is returned. */
(pos, escape_from_edge))
Lisp_Object pos, escape_from_edge;
{
int end;
......@@ -622,33 +623,33 @@ then the end of the *following* field is returned.")
}
DEFUN ("constrain-to-field", Fconstrain_to_field, Sconstrain_to_field, 2, 5, 0,
"Return the position closest to NEW-POS that is in the same field as OLD-POS.\n\
\n\
A field is a region of text with the same `field' property.\n\
If NEW-POS is nil, then the current point is used instead, and set to the\n\
constrained position if that is different.\n\
\n\
If OLD-POS is at the boundary of two fields, then the allowable\n\
positions for NEW-POS depends on the value of the optional argument\n\
ESCAPE-FROM-EDGE: If ESCAPE-FROM-EDGE is nil, then NEW-POS is\n\
constrained to the field that has the same `field' char-property\n\
as any new characters inserted at OLD-POS, whereas if ESCAPE-FROM-EDGE\n\
is non-nil, NEW-POS is constrained to the union of the two adjacent\n\
fields. Additionally, if two fields are separated by another field with\n\
the special value `boundary', then any point within this special field is\n\
also considered to be `on the boundary'.\n\
\n\
If the optional argument ONLY-IN-LINE is non-nil and constraining\n\
NEW-POS would move it to a different line, NEW-POS is returned\n\
unconstrained. This useful for commands that move by line, like\n\
\\[next-line] or \\[beginning-of-line], which should generally respect field boundaries\n\
only in the case where they can still move to the right line.\n\
\n\
If the optional argument INHIBIT-CAPTURE-PROPERTY is non-nil, and OLD-POS has\n\
a non-nil property of that name, then any field boundaries are ignored.\n\
\n\
Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil.")
(new_pos, old_pos, escape_from_edge, only_in_line, inhibit_capture_property)
/* Return the position closest to NEW-POS that is in the same field as OLD-POS.
A field is a region of text with the same `field' property.
If NEW-POS is nil, then the current point is used instead, and set to the
constrained position if that is different.
If OLD-POS is at the boundary of two fields, then the allowable
positions for NEW-POS depends on the value of the optional argument
ESCAPE-FROM-EDGE: If ESCAPE-FROM-EDGE is nil, then NEW-POS is
constrained to the field that has the same `field' char-property
as any new characters inserted at OLD-POS, whereas if ESCAPE-FROM-EDGE
is non-nil, NEW-POS is constrained to the union of the two adjacent
fields. Additionally, if two fields are separated by another field with
the special value `boundary', then any point within this special field is
also considered to be `on the boundary'.
If the optional argument ONLY-IN-LINE is non-nil and constraining
NEW-POS would move it to a different line, NEW-POS is returned
unconstrained. This useful for commands that move by line, like
\\[next-line] or \\[beginning-of-line], which should generally respect field boundaries
only in the case where they can still move to the right line.
If the optional argument INHIBIT-CAPTURE-PROPERTY is non-nil, and OLD-POS has
a non-nil property of that name, then any field boundaries are ignored.
Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil. */
(new_pos, old_pos, escape_from_edge, only_in_line, inhibit_capture_property))
Lisp_Object new_pos, old_pos;
Lisp_Object escape_from_edge, only_in_line, inhibit_capture_property;
{
......@@ -715,16 +716,16 @@ Field boundaries are not noticed if `inhibit-field-text-motion' is non-nil.")
DEFUN ("line-beginning-position", Fline_beginning_position, Sline_beginning_position,
0, 1, 0,
"Return the character position of the first character on the current line.\n\
With argument N not nil or 1, move forward N - 1 lines first.\n\
If scan reaches end of buffer, return that position.\n\
The scan does not cross a field boundary unless it would move\n\
beyond there to a different line. Field boundaries are not noticed if\n\
`inhibit-field-text-motion' is non-nil. .And if N is nil or 1,\n\
and scan starts at a field boundary, the scan stops as soon as it starts.\n\
\n\
This function does not move point.")
(n)
/* Return the character position of the first character on the current line.
With argument N not nil or 1, move forward N - 1 lines first.
If scan reaches end of buffer, return that position.
The scan does not cross a field boundary unless it would move
beyond there to a different line. Field boundaries are not noticed if
`inhibit-field-text-motion' is non-nil. And if N is nil or 1,
and scan starts at a field boundary, the scan stops as soon as it starts.
This function does not move point. */
(n))
Lisp_Object n;
{
int orig, orig_byte, end;
......@@ -749,11 +750,11 @@ This function does not move point.")
DEFUN ("line-end-position", Fline_end_position, Sline_end_position,
0, 1, 0,
"Return the character position of the last character on the current line.\n\
With argument N not nil or 1, move forward N - 1 lines first.\n\
If scan reaches end of buffer, return that position.\n\
This function does not move point.")
(n)
/* Return the character position of the last character on the current line.
With argument N not nil or 1, move forward N - 1 lines first.
If scan reaches end of buffer, return that position.
This function does not move point. */
(n))
Lisp_Object n;
{
int end_pos;
......@@ -870,17 +871,17 @@ save_excursion_restore (info)
}
DEFUN ("save-excursion", Fsave_excursion, Ssave_excursion, 0, UNEVALLED, 0,
"Save point, mark, and current buffer; execute BODY; restore those things.\n\
Executes BODY just like `progn'.\n\
The values of point, mark and the current buffer are restored\n\
even in case of abnormal exit (throw or error).\n\
The state of activation of the mark is also restored.\n\
\n\
This construct does not save `deactivate-mark', and therefore\n\
functions that change the buffer will still cause deactivation\n\
of the mark at the end of the command. To prevent that, bind\n\
`deactivate-mark' with `let'.")
(args)
/* Save point, mark, and current buffer; execute BODY; restore those things.
Executes BODY just like `progn'.
The values of point, mark and the current buffer are restored
even in case of abnormal exit (throw or error).
The state of activation of the mark is also restored.
This construct does not save `deactivate-mark', and therefore
functions that change the buffer will still cause deactivation
of the mark at the end of the command. To prevent that, bind
`deactivate-mark' with `let'. */
(args))
Lisp_Object args;
{
register Lisp_Object val;
......@@ -893,9 +894,9 @@ of the mark at the end of the command. To prevent that, bind\n\
}
DEFUN ("save-current-buffer", Fsave_current_buffer, Ssave_current_buffer, 0, UNEVALLED, 0,
"Save the current buffer; execute BODY; restore the current buffer.\n\
Executes BODY just like `progn'.")
(args)
/* Save the current buffer; execute BODY; restore the current buffer.
Executes BODY just like `progn'. */
(args))
Lisp_Object args;
{
Lisp_Object val;
......@@ -908,9 +909,9 @@ Executes BODY just like `progn'.")
}
DEFUN ("buffer-size", Fbufsize, Sbufsize, 0, 1, 0,
"Return the number of characters in the current buffer.\n\
If BUFFER, return the number of characters in that buffer instead.")
(buffer)
/* Return the number of characters in the current buffer.
If BUFFER, return the number of characters in that buffer instead. */
(buffer))
Lisp_Object buffer;
{
if (NILP (buffer))
......@@ -924,9 +925,9 @@ If BUFFER, return the number of characters in that buffer instead.")
}
DEFUN ("point-min", Fpoint_min, Spoint_min, 0, 0, 0,
"Return the minimum permissible value of point in the current buffer.\n\
This is 1, unless narrowing (a buffer restriction) is in effect.")
()
/* Return the minimum permissible value of point in the current buffer.
This is 1, unless narrowing (a buffer restriction) is in effect. */
())
{
Lisp_Object temp;
XSETFASTINT (temp, BEGV);
......@@ -934,18 +935,18 @@ This is 1, unless narrowing (a buffer restriction) is in effect.")
}
DEFUN ("point-min-marker", Fpoint_min_marker, Spoint_min_marker, 0, 0, 0,
"Return a marker to the minimum permissible value of point in this buffer.\n\
This is the beginning, unless narrowing (a buffer restriction) is in effect.")
()
/* Return a marker to the minimum permissible value of point in this buffer.
This is the beginning, unless narrowing (a buffer restriction) is in effect. */
())
{
return buildmark (BEGV, BEGV_BYTE);
}
DEFUN ("point-max", Fpoint_max, Spoint_max, 0, 0, 0,
"Return the maximum permissible value of point in the current buffer.\n\
This is (1+ (buffer-size)), unless narrowing (a buffer restriction)\n\
is in effect, in which case it is less.")
()
/* Return the maximum permissible value of point in the current buffer.
This is (1+ (buffer-size)), unless narrowing (a buffer restriction)
is in effect, in which case it is less. */
())
{
Lisp_Object temp;
XSETFASTINT (temp, ZV);
......@@ -953,18 +954,18 @@ is in effect, in which case it is less.")
}
DEFUN ("point-max-marker", Fpoint_max_marker, Spoint_max_marker, 0, 0, 0,
"Return a marker to the maximum permissible value of point in this buffer.\n\
This is (1+ (buffer-size)), unless narrowing (a buffer restriction)\n\
is in effect, in which case it is less.")
()
/* Return a marker to the maximum permissible value of point in this buffer.
This is (1+ (buffer-size)), unless narrowing (a buffer restriction)
is in effect, in which case it is less. */
())
{
return buildmark (ZV, ZV_BYTE);
}
DEFUN ("gap-position", Fgap_position, Sgap_position, 0, 0, 0,
"Return the position of the gap, in the current buffer.\n\
See also `gap-size'.")
()
/* Return the position of the gap, in the current buffer.
See also `gap-size'. */
())
{
Lisp_Object temp;
XSETFASTINT (temp, GPT);
......@@ -972,9 +973,9 @@ See also `gap-size'.")
}
DEFUN ("gap-size", Fgap_size, Sgap_size, 0, 0, 0,
"Return the size of the current buffer's gap.\n\
See also `gap-position'.")
()
/* Return the size of the current buffer's gap.
See also `gap-position'. */
())
{
Lisp_Object temp;
XSETFASTINT (temp, GAP_SIZE);
......@@ -982,9 +983,9 @@ See also `gap-position'.")
}
DEFUN ("position-bytes", Fposition_bytes, Sposition_bytes, 1, 1, 0,
"Return the byte position for character position POSITION.\n\
If POSITION is out of range, the value is nil.")
(position)
/* Return the byte position for character position POSITION.
If POSITION is out of range, the value is nil. */
(position))
Lisp_Object position;
{
CHECK_NUMBER_COERCE_MARKER (position, 1);
......@@ -994,9 +995,9 @@ If POSITION is out of range, the value is nil.")
}
DEFUN ("byte-to-position", Fbyte_to_position, Sbyte_to_position, 1, 1, 0,
"Return the character position for byte position BYTEPOS.\n\
If BYTEPOS is out of range, the value is nil.")
(bytepos)
/* Return the character position for byte position BYTEPOS.
If BYTEPOS is out of range, the value is nil. */
(bytepos))
Lisp_Object bytepos;
{
CHECK_NUMBER (bytepos, 1);
......@@ -1006,9 +1007,9 @@ If BYTEPOS is out of range, the value is nil.")
}
DEFUN ("following-char", Ffollowing_char, Sfollowing_char, 0, 0, 0,
"Return the character following point, as a number.\n\
At the end of the buffer or accessible region, return 0.")
()
/* Return the character following point, as a number.
At the end of the buffer or accessible region, return 0. */
())
{
Lisp_Object temp;
if (PT >= ZV)
......@@ -1019,9 +1020,9 @@ At the end of the buffer or accessible region, return 0.")
}
DEFUN ("preceding-char", Fprevious_char, Sprevious_char, 0, 0, 0,
"Return the character preceding point, as a number.\n\
At the beginning of the buffer or accessible region, return 0.")
()
/* Return the character preceding point, as a number.
At the beginning of the buffer or accessible region, return 0. */
())
{
Lisp_Object temp;
if (PT <= BEGV)
......@@ -1038,9 +1039,9 @@ At the beginning of the buffer or accessible region, return 0.")
}
DEFUN ("bobp", Fbobp, Sbobp, 0, 0, 0,
"Return t if point is at the beginning of the buffer.\n\
If the buffer is narrowed, this means the beginning of the narrowed part.")
()
/* Return t if point is at the beginning of the buffer.
If the buffer is narrowed, this means the beginning of the narrowed part. */
())
{
if (PT == BEGV)
return Qt;
......@@ -1048,9 +1049,9 @@ If the buffer is narrowed, this means the beginning of the narrowed part.")
}
DEFUN ("eobp", Feobp, Seobp, 0, 0, 0,
"Return t if point is at the end of the buffer.\n\
If the buffer is narrowed, this means the end of the narrowed part.")
()
/* Return t if point is at the end of the buffer.
If the buffer is narrowed, this means the end of the narrowed part. */
())
{
if (PT == ZV)
return Qt;
......@@ -1058,8 +1059,8 @@ If the buffer is narrowed, this means the end of the narrowed part.")
}
DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0,
"Return t if point is at the beginning of a line.")
()
/* Return t if point is at the beginning of a line. */
())
{
if (PT == BEGV || FETCH_BYTE (PT_BYTE - 1) == '\n')
return Qt;
......@@ -1067,9 +1068,9 @@ DEFUN ("bolp", Fbolp, Sbolp, 0, 0, 0,
}
DEFUN ("eolp", Feolp, Seolp, 0, 0, 0,
"Return t if point is at the end of a line.\n\
`End of a line' includes point being at the end of the buffer.")
()
/* Return t if point is at the end of a line.
`End of a line' includes point being at the end of the buffer. */
())
{
if (PT == ZV || FETCH_BYTE (PT_BYTE) == '\n')
return Qt;
......@@ -1077,10 +1078,10 @@ DEFUN ("eolp", Feolp, Seolp, 0, 0, 0,
}
DEFUN ("char-after", Fchar_after, Schar_after, 0, 1, 0,
"Return character in current buffer at position POS.\n\
POS is an integer or a marker.\n\
If POS is out of range, the value is nil.")
(pos)
/* Return character in current buffer at position POS.
POS is an integer or a marker.
If POS is out of range, the value is nil. */
(pos))
Lisp_Object pos;
{
register int pos_byte;
......@@ -1110,10 +1111,10 @@ If POS is out of range, the value is nil.")
}
DEFUN ("char-before", Fchar_before, Schar_before, 0, 1, 0,
"Return character in current buffer preceding position POS.\n\
POS is an integer or a marker.\n\
If POS is out of range, the value is nil.")
(pos)
/* Return character in current buffer preceding position POS.
POS is an integer or a marker.
If POS is out of range, the value is nil. */
(pos))
Lisp_Object pos;
{
register Lisp_Object val;
......@@ -1156,13 +1157,14 @@ If POS is out of range, the value is nil.")
}
DEFUN ("user-login-name", Fuser_login_name, Suser_login_name, 0, 1, 0,
"Return the name under which the user logged in, as a string.\n\
This is based on the effective uid, not the real uid.\n\
Also, if the environment variable LOGNAME or USER is set,\n\
that determines the value of this function.\n\n\
If optional argument UID is an integer, return the login name of the user\n\
with that uid, or nil if there is no such user.")
(uid)
/* Return the name under which the user logged in, as a string.
This is based on the effective uid, not the real uid.
Also, if the environment variable LOGNAME or USER is set,
that determines the value of this function.
If optional argument UID is an integer, return the login name of the user
with that uid, or nil if there is no such user. */
(uid))
Lisp_Object uid;
{
struct passwd *pw;
......@@ -1183,10 +1185,10 @@ with that uid, or nil if there is no such user.")
DEFUN ("user-real-login-name", Fuser_real_login_name, Suser_real_login_name,
0, 0, 0,
"Return the name of the user's real uid, as a string.\n\
This ignores the environment variables LOGNAME and USER, so it differs from\n\
`user-login-name' when running under `su'.")
()
/* Return the name of the user's real uid, as a string.
This ignores the environment variables LOGNAME and USER, so it differs from
`user-login-name' when running under `su'. */
())
{
/* Set up the user name info if we didn't do it before.
(That can happen if Emacs is dumpable
......@@ -1197,31 +1199,31 @@ This ignores the environment variables LOGNAME and USER, so it differs from\n\
}
DEFUN ("user-uid", Fuser_uid, Suser_uid, 0, 0, 0,
"Return the effective uid of Emacs.\n\
Value is an integer or float, depending on the value.")
()
/* Return the effective uid of Emacs.
Value is an integer or float, depending on the value. */
())
{
return make_fixnum_or_float (geteuid ());
}
DEFUN ("user-real-uid", Fuser_real_uid, Suser_real_uid, 0, 0, 0,
"Return the real uid of Emacs.\n\
Value is an integer or float, depending on the value.")
()
/* Return the real uid of Emacs.
Value is an integer or float, depending on the value. */
())
{
return make_fixnum_or_float (getuid ());
}
DEFUN ("user-full-name", Fuser_full_name, Suser_full_name, 0, 1, 0,
"Return the full name of the user logged in, as a string.\n\
If the full name corresponding to Emacs's userid is not known,\n\
return \"unknown\".\n\
\n\
If optional argument UID is an integer or float, return the full name\n\
of the user with that uid, or nil if there is no such user.\n\
If UID is a string, return the full name of the user with that login\n\
name, or nil if there is no such user.")
(uid)
/* Return the full name of the user logged in, as a string.
If the full name corresponding to Emacs's userid is not known,
return "unknown".
If optional argument UID is an integer or float, return the full name
of the user with that uid, or nil if there is no such user.
If UID is a string, return the full name of the user with that login
name, or nil if there is no such user. */
(uid))
Lisp_Object uid;
{
struct passwd *pw;
......@@ -1269,8 +1271,8 @@ name, or nil if there is no such user.")
}
DEFUN ("system-name", Fsystem_name, Ssystem_name, 0,