Mercurial > hg > xemacs-beta
diff src/extents.c @ 280:7df0dd720c89 r21-0b38
Import from CVS: tag r21-0b38
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:32:22 +0200 |
parents | 6330739388db |
children | 558f606b08ae |
line wrap: on
line diff
--- a/src/extents.c Mon Aug 13 10:31:30 2007 +0200 +++ b/src/extents.c Mon Aug 13 10:32:22 2007 +0200 @@ -4748,8 +4748,8 @@ } /* Do we need a lisp-level function ? */ -DEFUN ("set-extent-initial-redisplay-function", - Fset_extent_initial_redisplay_function, 2,2,0,/* +DEFUN ("set-extent-initial-redisplay-function", Fset_extent_initial_redisplay_function, + 2,2,0,/* Note: This feature is experimental! Set initial-redisplay-function of EXTENT to the function @@ -4984,7 +4984,7 @@ (extent)) { EXTENT e = decode_extent (extent, 0); - return glyph_layout_to_symbol (extent_begin_glyph_layout (e)); + return glyph_layout_to_symbol ((glyph_layout) extent_begin_glyph_layout (e)); } DEFUN ("extent-end-glyph-layout", Fextent_end_glyph_layout, 1, 1, 0, /* @@ -4994,7 +4994,7 @@ (extent)) { EXTENT e = decode_extent (extent, 0); - return glyph_layout_to_symbol (extent_end_glyph_layout (e)); + return glyph_layout_to_symbol ((glyph_layout) extent_end_glyph_layout (e)); } DEFUN ("set-extent-priority", Fset_extent_priority, 2, 2, 0, /* @@ -5339,7 +5339,7 @@ { EXTENT e, anc; Lisp_Object result, face, anc_obj; - enum glyph_layout layout; + glyph_layout layout; CHECK_EXTENT (extent); e = XEXTENT (extent); @@ -5359,14 +5359,14 @@ if (!NILP (face = Fextent_mouse_face (anc_obj))) result = cons3 (Qmouse_face, face, result); - if ((layout = extent_begin_glyph_layout (anc)) != GL_TEXT) + if ((layout = (glyph_layout) extent_begin_glyph_layout (anc)) != GL_TEXT) { Lisp_Object sym = glyph_layout_to_symbol (layout); result = cons3 (Qglyph_layout, sym, result); /* compatibility */ result = cons3 (Qbegin_glyph_layout, sym, result); } - if ((layout = extent_end_glyph_layout (anc)) != GL_TEXT) + if ((layout = (glyph_layout) extent_end_glyph_layout (anc)) != GL_TEXT) result = cons3 (Qend_glyph_layout, glyph_layout_to_symbol (layout), result); if (!NILP (extent_end_glyph (anc))) @@ -6275,8 +6275,8 @@ return prop; } -DEFUN ("put-nonduplicable-text-property", - Fput_nonduplicable_text_property, 4, 5, 0, /* +DEFUN ("put-nonduplicable-text-property", Fput_nonduplicable_text_property, + 4, 5, 0, /* Adds the given property/value to all characters in the specified region. The property is conceptually attached to the characters rather than the region, however the properties will not be copied when the characters @@ -6321,8 +6321,8 @@ } -DEFUN ("add-nonduplicable-text-properties", - Fadd_nonduplicable_text_properties, 3, 4, 0, /* +DEFUN ("add-nonduplicable-text-properties", Fadd_nonduplicable_text_properties, + 3, 4, 0, /* Add nonduplicable properties to the characters from START to END. \(The properties will not be copied when the characters are copied.) The third argument PROPS is a property list specifying the property values @@ -6384,8 +6384,8 @@ the rest of the put-text-prop code here, I moved this as well for completeness. */ -DEFUN ("text-prop-extent-paste-function", - Ftext_prop_extent_paste_function, 3, 3, 0, /* +DEFUN ("text-prop-extent-paste-function", Ftext_prop_extent_paste_function, + 3, 3, 0, /* Used as the `paste-function' property of `text-prop' extents. */ (extent, from, to)) @@ -6414,7 +6414,8 @@ to use it in connection with invisible extents (at least currently). If this changes, consider moving this back into Lisp. */ -DEFUN ("next-single-property-change", Fnext_single_property_change, 2, 4, 0, /* +DEFUN ("next-single-property-change", Fnext_single_property_change, + 2, 4, 0, /* Return the position of next property change for a specific property. Scans characters forward from POS till it finds a change in the PROP property, then returns the position of the change. The optional third @@ -6480,8 +6481,8 @@ /* See comment on previous function about why this is written in C. */ -DEFUN ("previous-single-property-change", - Fprevious_single_property_change, 2, 4, 0, /* +DEFUN ("previous-single-property-change", Fprevious_single_property_change, + 2, 4, 0, /* Return the position of next property change for a specific property. Scans characters backward from POS till it finds a change in the PROP property, then returns the position of the change. The optional third