diff options
| author | Andreas Schwab | 1998-04-14 13:02:50 +0000 |
|---|---|---|
| committer | Andreas Schwab | 1998-04-14 13:02:50 +0000 |
| commit | 6acce4eaa2408e67cc9ee79bda4dcbc02647138c (patch) | |
| tree | 58ff887bde80a098fd8e6c62b5c3465591068755 | |
| parent | d52a7a92631eb442c97bec9880d881871858c8ea (diff) | |
| download | emacs-6acce4eaa2408e67cc9ee79bda4dcbc02647138c.tar.gz emacs-6acce4eaa2408e67cc9ee79bda4dcbc02647138c.zip | |
(set_marker_both): Remove bogus checks on charpos.
| -rw-r--r-- | src/marker.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/src/marker.c b/src/marker.c index 9806c30b5c1..0cb6d3979a1 100644 --- a/src/marker.c +++ b/src/marker.c | |||
| @@ -621,16 +621,7 @@ set_marker_both (marker, buffer, charpos, bytepos) | |||
| 621 | register struct Lisp_Marker *m; | 621 | register struct Lisp_Marker *m; |
| 622 | 622 | ||
| 623 | CHECK_MARKER (marker, 0); | 623 | CHECK_MARKER (marker, 0); |
| 624 | /* If position is nil or a marker that points nowhere, | ||
| 625 | make this marker point nowhere. */ | ||
| 626 | if (NILP (charpos) | ||
| 627 | || (MARKERP (charpos) && !XMARKER (charpos)->buffer)) | ||
| 628 | { | ||
| 629 | unchain_marker (marker); | ||
| 630 | return marker; | ||
| 631 | } | ||
| 632 | 624 | ||
| 633 | CHECK_NUMBER_COERCE_MARKER (charpos, 1); | ||
| 634 | if (NILP (buffer)) | 625 | if (NILP (buffer)) |
| 635 | b = current_buffer; | 626 | b = current_buffer; |
| 636 | else | 627 | else |