From 2e34157cd9e74150e79e0ce23236252b47fb5f1a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 4 Jul 1997 20:44:52 +0000 Subject: Fix bugs with inappropriate mixing of Lisp_Object with int. --- src/indent.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/indent.c') diff --git a/src/indent.c b/src/indent.c index e2c7f12d29d..ab82f8212b4 100644 --- a/src/indent.c +++ b/src/indent.c @@ -208,8 +208,9 @@ skip_invisible (pos, next_boundary_p, to, window) int to; Lisp_Object window; { - Lisp_Object prop, position, end, overlay_limit, proplimit; + Lisp_Object prop, position, overlay_limit, proplimit; Lisp_Object buffer; + int end; XSETFASTINT (position, pos); XSETBUFFER (buffer, current_buffer); @@ -239,8 +240,8 @@ skip_invisible (pos, next_boundary_p, to, window) /* No matter what. don't go past next overlay change. */ if (XFASTINT (overlay_limit) < XFASTINT (proplimit)) proplimit = overlay_limit; - end = Fnext_single_property_change (position, Qinvisible, - buffer, proplimit); + end = XFASTINT (Fnext_single_property_change (position, Qinvisible, + buffer, proplimit)); /* Don't put the boundary in the middle of multibyte form if there is no actual property change. */ if (end == pos + 100 @@ -248,7 +249,7 @@ skip_invisible (pos, next_boundary_p, to, window) && end < ZV) while (pos < end && !CHAR_HEAD_P (POS_ADDR (end))) end--; - *next_boundary_p = XFASTINT (end); + *next_boundary_p = end; } /* if the `invisible' property is set, we can skip to the next property change */ -- cgit v1.2.1