xemacs-beta: src/extents.c comparison

comparison src/extents.c @ 189:489f57a838ef r20-3b21

Import from CVS: tag r20-3b21

author	cvs
date	Mon, 13 Aug 2007 09:57:07 +0200
parents	3d6bfa290dbd
children	a2f645c6b9f8

comparison

equal deleted inserted replaced

-:e29a8e7498d9
+:489f57a838ef
 Lisp_Object Qunique;
 Lisp_Object Qduplicable;
 Lisp_Object Qdetachable;
 Lisp_Object Qpriority;
 Lisp_Object Qmouse_face;
+Lisp_Object Qone_shot_function;
 Lisp_Object Qglyph_layout;  /* This exists only for backwards compatibility. */
 Lisp_Object Qbegin_glyph_layout, Qend_glyph_layout;
 Lisp_Object Qoutside_margin;
 Lisp_Object Qinside_margin;
 ((markobj) (data->end_glyph));
 ((markobj) (data->invisible));
 ((markobj) (data->children));
 ((markobj) (data->read_only));
 ((markobj) (data->mouse_face));
+((markobj) (data->one_shot_function));
 return data->parent;
 }
 void
 allocate_extent_auxiliary (EXTENT ext)
 if (!NILP (extent_face        (anc)) ||
 !NILP (extent_begin_glyph (anc)) ||
 !NILP (extent_end_glyph   (anc)) ||
 !NILP (extent_mouse_face  (anc)) ||
 !NILP (extent_invisible   (anc)) ||
+!NILP (extent_one_shot_function (anc)) ||
 invisibility_change)
 extent_changed_for_redisplay (extent, descendants_too,
 				  invisibility_change);
 }
 	      set_extent_priority (&dummy_lhe_extent,
 				   mouse_highlight_priority);
 	      extent_face (&dummy_lhe_extent) = extent_mouse_face (lhe);
 	      Dynarr_add (ef->extents, &dummy_lhe_extent);
 	    }
+	  /* since we are looping anyway, we might as well do this here */
+	  if (!NILP(extent_one_shot_function (e)))
+	    {
+	      Lisp_Object function = extent_one_shot_function (e);
+	      Lisp_Object obj;
+	      /* printf("One shot function called!\n "); */
+	      /* print_extent_2(e);
+	         printf("\n"); */
+	      /* Do NOT use the set function here because that sets the
+		 redisplay flag.
+		 FIXME: One should probably inhibit the displaying of
+		 this extent to reduce flicker */
+	      set_extent_one_shot_function (e,Qnil); /* one shot */
+	      /* call the function */
+	      XSETEXTENT(obj,e);
+	      if(!NILP(function))
+	         Fenqueue_eval_event(function,obj);
+	    }
 	}
 }
 extent_fragment_sort_by_priority (ef->extents);
 value = (external_of_internal_memoized_face
 	     (memoize_extent_face_internal (value)));
 return value;
 }
+/* Do we need a lisp-level function ? */
+DEFUN ("set-extent-one-shot-function", Fset_extent_one_shot_function,
+2,2,0,/*
+Set one-shot-function of EXTENT to the function
+FUNCTION. This function will be called with EXTENT as its only
+argument shortly after (part of) the extent has been under
+consideration for display. The property is then cleared.
+*/
+(extent, function))
+{
+EXTENT e = decode_extent(extent, DE_MUST_BE_ATTACHED);
+e = extent_ancestor (e);  /* Is this needed? Macro also does chasing!*/
+set_extent_one_shot_function(e,function);
+extent_changed_for_redisplay(e,1,0); /* Do we need to mark children too ?*/
+return function;
+}
 DEFUN ("extent-face", Fextent_face, 1, 1, 0, /*
 Return the name of the face in which EXTENT is displayed, or nil
 if the extent's face is unspecified.  This might also return a list
 of face names.
 */
 (extent))
 {
 Lisp_Object face;
 By default, extents have the `end-open' but not the
 `start-open' property set.
 read-only          Text within this extent will be unmodifiable.
+one-shot-function  function to be called the first time (part of) the extent
+is redisplayed. It will be called with the extent as its
+first argument.
 detachable         Whether the extent gets detached (as with
 `detach-extent') when all the text within the
 extent is deleted.  This is true by default.  If
 this property is not set, the extent becomes a
 zero-length extent when its text is deleted. (In
 }
 else if (EQ (property, Qpriority))
 Fset_extent_priority (extent, value);
 else if (EQ (property, Qface))
 Fset_extent_face (extent, value);
+else if (EQ (property, Qone_shot_function))
+Fset_extent_one_shot_function (extent, value);
 else if (EQ (property, Qmouse_face))
 Fset_extent_mouse_face (extent, value);
 /* Obsolete: */
 else if (EQ (property, Qhighlight))
 Fset_extent_mouse_face (extent, Qhighlight);
 return extent_read_only (e);
 else if (EQ (property, Qinvisible))
 return extent_invisible (e);
 else if (EQ (property, Qface))
 return Fextent_face (extent);
+else if (EQ (property, Qone_shot_function))
+return extent_one_shot_function (e);
 else if (EQ (property, Qmouse_face))
 return Fextent_mouse_face (extent);
 /* Obsolete: */
 else if (EQ (property, Qhighlight))
 return !NILP (Fextent_mouse_face (extent)) ? Qt : Qnil;
 result = Fcons (Qbegin_glyph, Fcons (extent_begin_glyph (anc), result));
 if (extent_priority (anc) != 0)
 result = Fcons (Qpriority, Fcons (make_int (extent_priority (anc)),
 				      result));
+if (!NILP (extent_one_shot_function (anc)))
+result = Fcons (Qone_shot_function, Fcons (extent_one_shot_function (anc), result));
 if (!NILP (extent_invisible (anc)))
 result = Fcons (Qinvisible, Fcons (extent_invisible (anc), result));
 if (!NILP (extent_read_only (anc)))
 defsymbol (&Qunique, "unique");
 defsymbol (&Qduplicable, "duplicable");
 defsymbol (&Qdetachable, "detachable");
 defsymbol (&Qpriority, "priority");
 defsymbol (&Qmouse_face, "mouse-face");
+defsymbol (&Qone_shot_function,"one-shot-function");
 defsymbol (&Qglyph_layout, "glyph-layout");	/* backwards compatibility */
 defsymbol (&Qbegin_glyph_layout, "begin-glyph-layout");
 defsymbol (&Qbegin_glyph_layout, "end-glyph-layout");
 defsymbol (&Qoutside_margin, "outside-margin");
 DEFSUBR (Fextent_in_region_p);
 DEFSUBR (Fmap_extents);
 DEFSUBR (Fmap_extent_children);
 DEFSUBR (Fextent_at);
+DEFSUBR (Fset_extent_one_shot_function);
 DEFSUBR (Fextent_face);
 DEFSUBR (Fset_extent_face);
 DEFSUBR (Fextent_mouse_face);
 DEFSUBR (Fset_extent_mouse_face);
 DEFSUBR (Fset_extent_begin_glyph);
 extent_auxiliary_defaults.children = Qnil;
 extent_auxiliary_defaults.priority = 0;
 extent_auxiliary_defaults.invisible = Qnil;
 extent_auxiliary_defaults.read_only = Qnil;
 extent_auxiliary_defaults.mouse_face = Qnil;
+extent_auxiliary_defaults.one_shot_function = Qnil;
 }
 void
 complex_vars_of_extents (void)
 {

Mercurial > hg > xemacs-beta

comparison src/extents.c @ 189:489f57a838ef r20-3b21