Mercurial > emacs
comparison src/buffer.c @ 18105:bc690c1e1950
(Fmove_overlay): Clean up setting o_beg and o_end.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 02 Jun 1997 00:24:11 +0000 |
parents | 7c256846be75 |
children | b45b431879bf |
comparison
equal
deleted
inserted
replaced
18104:b2a669ef69b1 | 18105:bc690c1e1950 |
---|---|
2817 if (!NILP (obuffer)) | 2817 if (!NILP (obuffer)) |
2818 { | 2818 { |
2819 Lisp_Object o_beg; | 2819 Lisp_Object o_beg; |
2820 Lisp_Object o_end; | 2820 Lisp_Object o_end; |
2821 | 2821 |
2822 o_beg = OVERLAY_START (overlay); | 2822 o_beg = OVERLAY_POSITION (OVERLAY_START (overlay)); |
2823 o_end = OVERLAY_END (overlay); | 2823 o_end = OVERLAY_POSITION (OVERLAY_END (overlay)); |
2824 o_beg = OVERLAY_POSITION (o_beg); | |
2825 o_end = OVERLAY_POSITION (o_end); | |
2826 | 2824 |
2827 modify_overlay (ob, XINT (o_beg), XINT (o_end)); | 2825 modify_overlay (ob, XINT (o_beg), XINT (o_end)); |
2828 } | 2826 } |
2829 | 2827 |
2830 /* Redisplay where the overlay is going to be. */ | 2828 /* Redisplay where the overlay is going to be. */ |
2835 { | 2833 { |
2836 Lisp_Object o_beg; | 2834 Lisp_Object o_beg; |
2837 Lisp_Object o_end; | 2835 Lisp_Object o_end; |
2838 int change_beg, change_end; | 2836 int change_beg, change_end; |
2839 | 2837 |
2840 o_beg = OVERLAY_START (overlay); | 2838 o_beg = OVERLAY_POSITION (OVERLAY_START (overlay)); |
2841 o_end = OVERLAY_END (overlay); | 2839 o_end = OVERLAY_POSITION (OVERLAY_END (overlay)); |
2842 o_beg = OVERLAY_POSITION (o_beg); | |
2843 o_end = OVERLAY_POSITION (o_end); | |
2844 | 2840 |
2845 if (XINT (o_beg) == XINT (beg)) | 2841 if (XINT (o_beg) == XINT (beg)) |
2846 modify_overlay (b, XINT (o_end), XINT (end)); | 2842 modify_overlay (b, XINT (o_end), XINT (end)); |
2847 else if (XINT (o_end) == XINT (end)) | 2843 else if (XINT (o_end) == XINT (end)) |
2848 modify_overlay (b, XINT (o_beg), XINT (beg)); | 2844 modify_overlay (b, XINT (o_beg), XINT (beg)); |