# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 892558970 0
# Node ID cabecb23d48cbcb4390efee0db0536d220e1eb19
# Parent  39c919d2a8becf695bff74164ed9e4252b758fd4
(set_marker_both): Remove bogus checks on charpos.

diff -r 39c919d2a8be -r cabecb23d48c src/marker.c
--- a/src/marker.c	Tue Apr 14 13:01:59 1998 +0000
+++ b/src/marker.c	Tue Apr 14 13:02:50 1998 +0000
@@ -621,16 +621,7 @@
   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