(Fload_average): New arg USE_FLOATS.

[bpt/emacs.git] / src / marker.c

diff --git a/src/marker.c b/src/marker.c
index e79e800..0cb6d39 100644 (file)
--- a/src/marker.c
+++ b/src/marker.c
@@ -36,6 +36,7 @@ static int cached_modiff;
 
 static int byte_debug_flag;
 
+void
 clear_charpos_cache (b)
      struct buffer *b;
 {
@@ -620,16 +621,7 @@ set_marker_both (marker, buffer, charpos, bytepos)
   register struct Lisp_Marker *m;
 
   CHECK_MARKER (marker, 0);
-  /* If position is nil or a marker that points nowhere,
-     make this marker point nowhere.  */
-  if (NILP (charpos)
-      || (MARKERP (charpos) && !XMARKER (charpos)->buffer))
-    {
-      unchain_marker (marker);
-      return marker;
-    }
 
-  CHECK_NUMBER_COERCE_MARKER (charpos, 1);
   if (NILP (buffer))
     b = current_buffer;
   else