Mercurial > hg > xemacs-beta

comparison src/extents.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 489f57a838ef
children 850242ba4a81
comparison
equal deleted inserted replaced
194:2947057885e5 195:a2f645c6b9f8
5268 5268
5269 external_plist_put (extent_plist_addr (e), property, value, 0, ERROR_ME); 5269 external_plist_put (extent_plist_addr (e), property, value, 0, ERROR_ME);
5270 } 5270 }
5271 5271
5272 return value; 5272 return value;
5273 }
5274
5275 DEFUN ("set-extent-properties", Fset_extent_properties, 2, 2, 0, /*
5276 Change some properties of EXTENT.
5277 PLIST is a property list.
5278 For a list of built-in properties, see `set-extent-property'.
5279 */
5280 (extent, plist))
5281 {
5282 /* This function can GC, if one of the properties is `keymap' */
5283 Lisp_Object property, value;
5284 struct gcpro gcpro1;
5285 GCPRO1 (plist);
5286
5287 plist = Fcopy_sequence (plist);
5288 Fcanonicalize_plist (plist, Qnil);
5289
5290 while (!NILP (plist))
5291 {
5292 property = Fcar (plist);
5293 value = Fcar (Fcdr (plist));
5294 plist = Fcdr (Fcdr (plist));
5295 Fset_extent_property (extent, property, value);
5296 }
5297 UNGCPRO;
5298 return Qnil;
5273 } 5299 }
5274 5300
5275 DEFUN ("extent-property", Fextent_property, 2, 3, 0, /* 5301 DEFUN ("extent-property", Fextent_property, 2, 3, 0, /*
5276 Return EXTENT's value for property PROPERTY. 5302 Return EXTENT's value for property PROPERTY.
5277 See `set-extent-property' for the built-in property names. 5303 See `set-extent-property' for the built-in property names.
6667 DEFSUBR (Fextent_begin_glyph_layout); 6693 DEFSUBR (Fextent_begin_glyph_layout);
6668 DEFSUBR (Fextent_end_glyph_layout); 6694 DEFSUBR (Fextent_end_glyph_layout);
6669 DEFSUBR (Fset_extent_priority); 6695 DEFSUBR (Fset_extent_priority);
6670 DEFSUBR (Fextent_priority); 6696 DEFSUBR (Fextent_priority);
6671 DEFSUBR (Fset_extent_property); 6697 DEFSUBR (Fset_extent_property);
6698 DEFSUBR (Fset_extent_properties);
6672 DEFSUBR (Fextent_property); 6699 DEFSUBR (Fextent_property);
6673 DEFSUBR (Fextent_properties); 6700 DEFSUBR (Fextent_properties);
6674 6701
6675 DEFSUBR (Fhighlight_extent); 6702 DEFSUBR (Fhighlight_extent);
6676 DEFSUBR (Fforce_highlight_extent); 6703 DEFSUBR (Fforce_highlight_extent);