# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 821147593 0
# Node ID c6a1708f37d4ea92ff65a9f279e5ae24997c6ef0
# Parent  addc50fc3981c709a44d7c41e80419f12c0d71e9
(Fset_marker): Harmonize arguments with documentation.

diff -r addc50fc3981 -r c6a1708f37d4 src/marker.c
--- 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))