(Fmarker_position): Remove unused variables `pos', `i',

and `buf'.
(Fmarker_insertion_type): Remove unused variable `buf'.

diff --git a/src/marker.c b/src/marker.c
index b3f9e0b4b84e96932b5a406c0474101925bbf440..7ef5b2a2bbd84662d7a451971346dce825949a55 100644 (file)
--- a/src/marker.c
+++ b/src/marker.c
@@ -450,10 +450,6 @@ DEFUN ("marker-position", Fmarker_position, Smarker_position, 1, 1, 0,
   (marker)
      Lisp_Object marker;
 {
-  register Lisp_Object pos;
-  register int i;
-  register struct buffer *buf;
-
   CHECK_MARKER (marker, 0);
   if (XMARKER (marker)->buffer)
     return make_number (XMARKER (marker)->charpos);
@@ -847,7 +843,6 @@ nil means the marker stays before text inserted there.")
   (marker)
      register Lisp_Object marker;
 {
-  register Lisp_Object buf;
   CHECK_MARKER (marker, 0);
   return XMARKER (marker)->insertion_type ? Qt : Qnil;
 }