# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1101187157 0
# Node ID 4fcc66cf0b9cfb68429bd97757c5f8db32330e63
# Parent  277e7a013eb63015086efb7a6158c482fcf1f526
(skip_invisible): Avoid non-idempotent side-effects in macro arguments.

diff -r 277e7a013eb6 -r 4fcc66cf0b9c src/indent.c
--- a/src/indent.c	Tue Nov 23 05:08:09 2004 +0000
+++ b/src/indent.c	Tue Nov 23 05:19:17 2004 +0000
@@ -220,7 +220,7 @@
      Lisp_Object window;
 {
   Lisp_Object prop, position, overlay_limit, proplimit;
-  Lisp_Object buffer;
+  Lisp_Object buffer, tmp;
   int end, inv_p;
 
   XSETFASTINT (position, pos);
@@ -251,8 +251,9 @@
       /* No matter what. don't go past next overlay change.  */
       if (XFASTINT (overlay_limit) < XFASTINT (proplimit))
 	proplimit = overlay_limit;
-      end = XFASTINT (Fnext_single_property_change (position, Qinvisible,
-						    buffer, proplimit));
+      tmp = Fnext_single_property_change (position, Qinvisible,
+					  buffer, proplimit);
+      end = XFASTINT (tmp);
 #if 0
       /* Don't put the boundary in the middle of multibyte form if
          there is no actual property change.  */