diff options
author | Erik Naggum <[email protected]> | 1996-01-09 00:33:13 +0000 |
---|---|---|
committer | Erik Naggum <[email protected]> | 1996-01-09 00:33:13 +0000 |
commit | 9be191c94f5f8756680949d010f0735113ff0dae (patch) | |
tree | 32cc9d7155ae60a38623477a90b9cf086fa4684c /src/marker.c | |
parent | 86a3ca5e06b2a62b36f6403ba490c052f274bf28 (diff) |
(Fset_marker): Harmonize arguments with documentation.
Diffstat (limited to 'src/marker.c')
-rw-r--r-- | src/marker.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/marker.c b/src/marker.c index 8aff8a5c7c..fb97c064cf 100644 --- a/src/marker.c +++ b/src/marker.c @@ -72,13 +72,13 @@ DEFUN ("marker-position", Fmarker_position, Smarker_position, 1, 1, 0, } DEFUN ("set-marker", Fset_marker, Sset_marker, 2, 3, 0, - "Position MARKER before character number NUMBER in BUFFER.\n\ + "Position MARKER before character number POSITION in BUFFER.\n\ BUFFER defaults to the current buffer.\n\ -If NUMBER is nil, makes marker point nowhere.\n\ +If POSITION is nil, makes marker point nowhere.\n\ Then it no longer slows down editing in any buffer.\n\ Returns MARKER.") - (marker, pos, buffer) - Lisp_Object marker, pos, buffer; + (marker, position, buffer) + Lisp_Object marker, position, buffer; { register int charno; register struct buffer *b; @@ -87,14 +87,14 @@ Returns MARKER.") CHECK_MARKER (marker, 0); /* If position is nil or a marker that points nowhere, make this marker point nowhere. */ - if (NILP (pos) - || (MARKERP (pos) && !XMARKER (pos)->buffer)) + if (NILP (position) + || (MARKERP (position) && !XMARKER (position)->buffer)) { unchain_marker (marker); return marker; } - CHECK_NUMBER_COERCE_MARKER (pos, 1); + CHECK_NUMBER_COERCE_MARKER (position, 1); if (NILP (buffer)) b = current_buffer; else @@ -109,7 +109,7 @@ Returns MARKER.") } } - charno = XINT (pos); + charno = XINT (position); m = XMARKER (marker); if (charno < BUF_BEG (b)) |