Mercurial > emacs
changeset 14082:c6a1708f37d4
(Fset_marker): Harmonize arguments with documentation.
| author | Erik Naggum <erik@naggum.no> |
|---|---|
| date | Tue, 09 Jan 1996 00:33:13 +0000 |
| parents | addc50fc3981 |
| children | 3ac9d27214e4 |
| files | src/marker.c |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/marker.c Tue Jan 09 00:33:09 1996 +0000 +++ b/src/marker.c Tue Jan 09 00:33:13 1996 +0000 @@ -72,13 +72,13 @@ } 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 @@ 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 @@ } } - charno = XINT (pos); + charno = XINT (position); m = XMARKER (marker); if (charno < BUF_BEG (b))