X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fextents.c;h=5fd8ad5367fa5e4bea4b71dbf4b3f91513412369;hb=762383636a99307282c2d93d26c35c046ec24da1;hp=69007868c52a211b111e0b3b7eb5066acd901b0c;hpb=2fd9701a4f902054649dde9143a3f77809afee8f;p=chise%2Fxemacs-chise.git.1

diff --git a/src/extents.c b/src/extents.c
index 6900786..5fd8ad5 100644
--- a/src/extents.c
+++ b/src/extents.c
@@ -465,6 +465,10 @@ Lisp_Object Vdefault_text_properties;
 EXFUN (Fextent_properties, 1);
 EXFUN (Fset_extent_property, 3);
 
+/* if true, we don't want to set any redisplay flags on modeline extent
+   changes */
+int in_modeline_generation;
+
 
 /************************************************************************/
 /*                       Generalized gap array                          */
@@ -1612,7 +1616,8 @@ extent_changed_for_redisplay (EXTENT extent, int descendants_too,
        when we need it. (b) we don't have to update the gutters when
        only extents attached to buffers have changed. */
 
-      MARK_EXTENTS_CHANGED;
+      if (!in_modeline_generation)
+	MARK_EXTENTS_CHANGED;
       gutter_extent_signal_changed_region_maybe (object,
 						 extent_endpoint_bufpos (extent, 0),
 						 extent_endpoint_bufpos (extent, 1));