diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-07-04 20:44:52 +0000 |
| commit | 2e34157cd9e74150e79e0ce23236252b47fb5f1a (patch) | |
| tree | 418451da8380ec73d5d46dc648c07e6ad8af845f /src/indent.c | |
| parent | 8c239ac3ed4f636810bc08959e1318b1a6e928ba (diff) | |
Fix bugs with inappropriate mixing of Lisp_Object with int.
Diffstat (limited to 'src/indent.c')
| -rw-r--r-- | src/indent.c | 9 |
1 files changed, 5 insertions, 4 deletions
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 */ |