diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-07-12 19:13:45 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-07-12 19:13:45 +0000 |
| commit | 0469366f994d3c03006c30262408379e416a03d4 (patch) | |
| tree | a607bf8424974e3e9426d79efec796d9e76528d0 /src/marker.c | |
| parent | b2a8c84d18112f03478f17a0bbc51e65c0d9b51e (diff) | |
| download | emacs-0469366f994d3c03006c30262408379e416a03d4.tar.gz | |
(Fcopy_marker): Make return from wrong_type_argument
fall thru into normal case.
Diffstat (limited to 'src/marker.c')
| -rw-r--r-- | src/marker.c | 16 |
1 files 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, |