From 0469366f994d3c03006c30262408379e416a03d4 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sun, 12 Jul 1998 19:13:45 +0000 Subject: [PATCH] (Fcopy_marker): Make return from wrong_type_argument fall thru into normal case. --- src/marker.c | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) 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, -- 2.39.2