From: Karl Heuer <kwzh@gnu.org>
Date: Sun, 12 Jul 1998 19:13:45 +0000 (+0000)
Subject: (Fcopy_marker): Make return from wrong_type_argument
X-Git-Tag: emacs-20.3~335
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0469366f994d3c03006c30262408379e416a03d4;p=emacs.git

(Fcopy_marker): Make return from wrong_type_argument
fall thru into normal case.
---

diff --git a/src/marker.c b/src/marker.c
index ae6b2e5eb6d..7e4cd4fa343 100644
--- a/src/marker.c
+++ b/src/marker.c
@@ -828,16 +828,14 @@ see `marker-insertion-type'.")
 {
   register Lisp_Object new;
 
-  if (INTEGERP (marker) || MARKERP (marker))
-    {
-      new = Fmake_marker ();
-      Fset_marker (new, marker,
-		   (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
-      XMARKER (new)->insertion_type = !NILP (type);
-      return new;
-    }
-  else
+  if (! (INTEGERP (marker) || MARKERP (marker)))
     marker = wrong_type_argument (Qinteger_or_marker_p, marker);
+
+  new = Fmake_marker ();
+  Fset_marker (new, marker,
+	       (MARKERP (marker) ? Fmarker_buffer (marker) : Qnil));
+  XMARKER (new)->insertion_type = !NILP (type);
+  return new;
 }
 
 DEFUN ("marker-insertion-type", Fmarker_insertion_type,