aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorStefan Monnier2004-11-23 05:19:17 +0000
committerStefan Monnier2004-11-23 05:19:17 +0000
commit2ca8b6c2c300e8b1c49f8061596dd697307f2867 (patch)
treed5ffa9a49ddc7ebee8546a2b7032428632bb56a4 /src
parent38cbfed434294f7b3d3e1ef3598df3f38a57bd54 (diff)
downloademacs-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.c7
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. */