xemacs-beta: src/extents.c comparison

comparison src/extents.c @ 373:6240c7796c7a r21-2b2

Import from CVS: tag r21-2b2

author	cvs
date	Mon, 13 Aug 2007 11:04:06 +0200
parents	cc15677e0335
children	8626e4521993

comparison

equal deleted inserted replaced

-:49e1ed2d7ed8
+:6240c7796c7a
 ((markobj) (data->invisible));
 ((markobj) (data->children));
 ((markobj) (data->read_only));
 ((markobj) (data->mouse_face));
 ((markobj) (data->initial_redisplay_function));
+((markobj) (data->before_change_functions));
+((markobj) (data->after_change_functions));
 return data->parent;
 }
 DEFINE_LRECORD_IMPLEMENTATION ("extent-auxiliary", extent_auxiliary,
 mark_extent_auxiliary, internal_object_printer,
 || EQ (prop, Qdetached)
 || EQ (prop, Qdestroyed)
 || EQ (prop, Qpriority)
 || EQ (prop, Qface)
 || EQ (prop, Qinitial_redisplay_function)
+|| EQ (prop, Qafter_change_functions)
+|| EQ (prop, Qbefore_change_functions)
 || EQ (prop, Qmouse_face)
 || EQ (prop, Qhighlight)
 || EQ (prop, Qbegin_glyph_layout)
 || EQ (prop, Qend_glyph_layout)
 || EQ (prop, Qglyph_layout)
 map_extents_bytind (from, to, process_extents_for_deletion_mapper,
 		      (void *) &closure, object, 0,
 		      ME_END_CLOSED | ME_MIGHT_MODIFY_EXTENTS);
 }
+/* ------------------------------- */
+/*   report_extent_modification()  */
+/* ------------------------------- */
+struct report_extent_modification_closure {
+Lisp_Object buffer;
+Bufpos start, end;
+int afterp;
+int speccount;
+};
+/* This juggling with the pointer to another file's global variable is
+kind of yucky.  Perhaps I should just export the variable.  */
+static int *inside_change_hook_pointer;
+static Lisp_Object
+report_extent_modification_restore (Lisp_Object buffer)
+{
+*inside_change_hook_pointer = 0;
+if (current_buffer != XBUFFER (buffer))
+Fset_buffer (buffer);
+return Qnil;
+}
+static int
+report_extent_modification_mapper (EXTENT extent, void *arg)
+{
+struct report_extent_modification_closure *closure =
+(struct report_extent_modification_closure *)arg;
+Lisp_Object exobj, startobj, endobj;
+Lisp_Object hook = (closure->afterp
+		      ? extent_after_change_functions (extent)
+		      : extent_before_change_functions (extent));
+if (NILP (hook))
+return 0;
+XSETEXTENT (exobj, extent);
+XSETINT (startobj, closure->start);
+XSETINT (endobj, closure->end);
+/* Now that we are sure to call elisp, set up an unwind-protect so
+inside_change_hook gets restored in case we throw.  Also record
+the current buffer, in case we change it.  Do the recording only
+once.  */
+if (closure->speccount == -1)
+{
+closure->speccount = specpdl_depth ();
+record_unwind_protect (report_extent_modification_restore,
+			     Fcurrent_buffer ());
+}
+/* The functions will expect closure->buffer to be the current
+buffer, so change it if it isn't.  */
+if (current_buffer != XBUFFER (closure->buffer))
+Fset_buffer (closure->buffer);
+/* #### It's a shame that we can't use any of the existing run_hook*
+functions here.  This is so because all of them work with
+symbols, to be able to retrieve default values of local hooks.
+<sigh> */
+if (!CONSP (hook) || EQ (XCAR (hook), Qlambda))
+call3 (hook, exobj, startobj, endobj);
+else
+{
+Lisp_Object tail;
+EXTERNAL_LIST_LOOP (tail, hook)
+	call3 (XCAR (tail), exobj, startobj, endobj);
+}
+return 0;
+}
+void
+report_extent_modification (Lisp_Object buffer, Bufpos start, Bufpos end,
+			    int *inside, int afterp)
+{
+struct report_extent_modification_closure closure;
+closure.buffer = buffer;
+closure.start = start;
+closure.end = end;
+closure.afterp = afterp;
+closure.speccount = -1;
+inside_change_hook_pointer = inside;
+*inside = 1;
+map_extents (start, end, report_extent_modification_mapper, (void *)&closure,
+	       buffer, NULL, ME_MIGHT_CALL_ELISP);
+if (closure.speccount == -1)
+*inside = 0;
+else
+{
+/* We mustn't unbind when closure.speccount != -1 because
+	 map_extents_bytind has already done that.  */
+assert (*inside == 0);
+}
+}
 /************************************************************************/
 /*		    	extent properties				*/
 /************************************************************************/
 Fset_extent_priority (extent, value);
 else if (EQ (property, Qface))
 Fset_extent_face (extent, value);
 else if (EQ (property, Qinitial_redisplay_function))
 Fset_extent_initial_redisplay_function (extent, value);
+else if (EQ (property, Qbefore_change_functions))
+set_extent_before_change_functions (e, value);
+else if (EQ (property, Qafter_change_functions))
+set_extent_after_change_functions (e, 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_invisible (e);
 else if (EQ (property, Qface))
 return Fextent_face (extent);
 else if (EQ (property, Qinitial_redisplay_function))
 return extent_initial_redisplay_function (e);
+else if (EQ (property, Qbefore_change_functions))
+return extent_before_change_functions (e);
+else if (EQ (property, Qafter_change_functions))
+return extent_after_change_functions (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 = cons3 (Qpriority, make_int (extent_priority (anc)), result);
 if (!NILP (extent_initial_redisplay_function (anc)))
 result = cons3 (Qinitial_redisplay_function,
 		    extent_initial_redisplay_function (anc), result);
+if (!NILP (extent_before_change_functions (anc)))
+result = cons3 (Qbefore_change_functions,
+		    extent_before_change_functions (anc), result);
+if (!NILP (extent_after_change_functions (anc)))
+result = cons3 (Qafter_change_functions,
+		    extent_after_change_functions (anc), result);
 if (!NILP (extent_invisible (anc)))
 result = cons3 (Qinvisible, extent_invisible (anc), result);
 if (!NILP (extent_read_only (anc)))
 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.initial_redisplay_function = Qnil;
+extent_auxiliary_defaults.before_change_functions = Qnil;
+extent_auxiliary_defaults.after_change_functions = Qnil;
 }
 void
 complex_vars_of_extents (void)
 {

Mercurial > hg > xemacs-beta

comparison src/extents.c @ 373:6240c7796c7a r21-2b2