diff options
| author | Kim F. Storm | 2006-07-12 13:19:54 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-07-12 13:19:54 +0000 |
| commit | 0b4331b7bffe15e032481fdb905616a9615ecb6d (patch) | |
| tree | cea59e959b908457b38d69f5809f4bf0a54e13a4 /src | |
| parent | d76592ae1196a4c4990856725ecb51822087da06 (diff) | |
| download | emacs-0b4331b7bffe15e032481fdb905616a9615ecb6d.tar.gz emacs-0b4331b7bffe15e032481fdb905616a9615ecb6d.zip | |
(Fcopy_marker): Use CHECK_TYPE.
Diffstat (limited to 'src')
| -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'. */) | |||
| 835 | { | 835 | { |
| 836 | register Lisp_Object new; | 836 | register Lisp_Object new; |
| 837 | 837 | ||
| 838 | if (! (INTEGERP (marker) || MARKERP (marker))) | 838 | CHECK_TYPE (INTEGERP (marker) || MARKERP (marker), Qinteger_or_marker_p, marker); |
| 839 | marker = wrong_type_argument (Qinteger_or_marker_p, marker); | ||
| 840 | 839 | ||
| 841 | new = Fmake_marker (); | 840 | new = Fmake_marker (); |
| 842 | Fset_marker (new, marker, | 841 | Fset_marker (new, marker, |