diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:19:54 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-07-12 13:19:54 +0000 |
| commit | 0b4331b7bffe15e032481fdb905616a9615ecb6d (patch) | |
| tree | cea59e959b908457b38d69f5809f4bf0a54e13a4 /src/marker.c | |
| parent | d76592ae1196a4c4990856725ecb51822087da06 (diff) | |
| download | emacs-0b4331b7bffe15e032481fdb905616a9615ecb6d.tar.gz | |
(Fcopy_marker): Use CHECK_TYPE.
Diffstat (limited to 'src/marker.c')
| -rw-r--r-- | src/marker.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/marker.c b/src/marker.c index 79a7d702bdf..20b660ddadd 100644 --- a/src/marker.c +++ b/src/marker.c @@ -835,8 +835,7 @@ see `marker-insertion-type'. */) { register Lisp_Object new; - if (! (INTEGERP (marker) || MARKERP (marker))) - marker = wrong_type_argument (Qinteger_or_marker_p, marker); + CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker); new = Fmake_marker (); Fset_marker (new, marker, |