diff options
| author | Stefan Monnier | 2004-11-23 05:19:17 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-11-23 05:19:17 +0000 |
| commit | 2ca8b6c2c300e8b1c49f8061596dd697307f2867 (patch) | |
| tree | d5ffa9a49ddc7ebee8546a2b7032428632bb56a4 /src | |
| parent | 38cbfed434294f7b3d3e1ef3598df3f38a57bd54 (diff) | |
| download | emacs-2ca8b6c2c300e8b1c49f8061596dd697307f2867.tar.gz emacs-2ca8b6c2c300e8b1c49f8061596dd697307f2867.zip | |
(skip_invisible): Avoid non-idempotent side-effects in macro arguments.
Diffstat (limited to 'src')
| -rw-r--r-- | src/indent.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/indent.c b/src/indent.c index ce274f65a1f..b1af03b6977 100644 --- a/src/indent.c +++ b/src/indent.c | |||
| @@ -220,7 +220,7 @@ skip_invisible (pos, next_boundary_p, to, window) | |||
| 220 | Lisp_Object window; | 220 | Lisp_Object window; |
| 221 | { | 221 | { |
| 222 | Lisp_Object prop, position, overlay_limit, proplimit; | 222 | Lisp_Object prop, position, overlay_limit, proplimit; |
| 223 | Lisp_Object buffer; | 223 | Lisp_Object buffer, tmp; |
| 224 | int end, inv_p; | 224 | int end, inv_p; |
| 225 | 225 | ||
| 226 | XSETFASTINT (position, pos); | 226 | XSETFASTINT (position, pos); |
| @@ -251,8 +251,9 @@ skip_invisible (pos, next_boundary_p, to, window) | |||
| 251 | /* No matter what. don't go past next overlay change. */ | 251 | /* No matter what. don't go past next overlay change. */ |
| 252 | if (XFASTINT (overlay_limit) < XFASTINT (proplimit)) | 252 | if (XFASTINT (overlay_limit) < XFASTINT (proplimit)) |
| 253 | proplimit = overlay_limit; | 253 | proplimit = overlay_limit; |
| 254 | end = XFASTINT (Fnext_single_property_change (position, Qinvisible, | 254 | tmp = Fnext_single_property_change (position, Qinvisible, |
| 255 | buffer, proplimit)); | 255 | buffer, proplimit); |
| 256 | end = XFASTINT (tmp); | ||
| 256 | #if 0 | 257 | #if 0 |
| 257 | /* Don't put the boundary in the middle of multibyte form if | 258 | /* Don't put the boundary in the middle of multibyte form if |
| 258 | there is no actual property change. */ | 259 | there is no actual property change. */ |