diff options
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/marker.c | 10 |
2 files changed, 7 insertions, 8 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 97c3ca9547d..a2cfd3029f3 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-07-05 Dmitry Antipov <dmantipov@yandex.ru> + + * marker.c (set_marker_restricted_both): Simplify by using + clip_to_bounds. + 2012-07-05 Paul Eggert <eggert@cs.ucla.edu> * editfns.c (region_limit): Simplify by using clip_to_bounds. diff --git a/src/marker.c b/src/marker.c index 2c09b8e19a2..a059987aa51 100644 --- a/src/marker.c +++ b/src/marker.c @@ -667,14 +667,8 @@ set_marker_restricted_both (Lisp_Object marker, Lisp_Object buffer, ptrdiff_t ch } } - if (charpos < BUF_BEGV (b)) - charpos = BUF_BEGV (b); - if (charpos > BUF_ZV (b)) - charpos = BUF_ZV (b); - if (bytepos < BUF_BEGV_BYTE (b)) - bytepos = BUF_BEGV_BYTE (b); - if (bytepos > BUF_ZV_BYTE (b)) - bytepos = BUF_ZV_BYTE (b); + charpos = clip_to_bounds (BUF_BEGV (b), charpos, BUF_ZV (b)); + bytepos = clip_to_bounds (BUF_BEGV_BYTE (b), bytepos, BUF_ZV_BYTE (b)); /* In a single-byte buffer, the two positions must be equal. */ if (BUF_Z (b) == BUF_Z_BYTE (b) |