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)); |
