Mercurial > hg > xemacs-beta

comparison src/extents.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children c33ae14dd6d0
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
3424 3424
3425 DEFUN ("next-extent-change", Fnext_extent_change, 1, 2, 0, /* 3425 DEFUN ("next-extent-change", Fnext_extent_change, 1, 2, 0, /*
3426 Return the next position after POS where an extent begins or ends. 3426 Return the next position after POS where an extent begins or ends.
3427 If POS is at the end of the buffer or string, POS will be returned; 3427 If POS is at the end of the buffer or string, POS will be returned;
3428 otherwise a position greater than POS will always be returned. 3428 otherwise a position greater than POS will always be returned.
3429 If BUFFER is nil, the current buffer is assumed. 3429 If OBJECT is nil, the current buffer is assumed.
3430 */ 3430 */
3431 (pos, object)) 3431 (pos, object))
3432 { 3432 {
3433 Lisp_Object obj = decode_buffer_or_string (object); 3433 Lisp_Object obj = decode_buffer_or_string (object);
3434 Bytind bpos; 3434 Bytind bpos;
4914 return value; 4914 return value;
4915 } 4915 }
4916 4916
4917 /* Do we need a lisp-level function ? */ 4917 /* Do we need a lisp-level function ? */
4918 DEFUN ("set-extent-initial-redisplay-function", Fset_extent_initial_redisplay_function, 4918 DEFUN ("set-extent-initial-redisplay-function", Fset_extent_initial_redisplay_function,
4919 2,2,0,/* 4919 2,2,0, /*
4920 Note: This feature is experimental! 4920 Note: This feature is experimental!
4921 4921
4922 Set initial-redisplay-function of EXTENT to the function 4922 Set initial-redisplay-function of EXTENT to the function
4923 FUNCTION. 4923 FUNCTION.
4924 4924
5435 return Qnil; 5435 return Qnil;
5436 } 5436 }
5437 5437
5438 DEFUN ("extent-property", Fextent_property, 2, 3, 0, /* 5438 DEFUN ("extent-property", Fextent_property, 2, 3, 0, /*
5439 Return EXTENT's value for property PROPERTY. 5439 Return EXTENT's value for property PROPERTY.
5440 If no such property exists, DEFAULT is returned.
5440 See `set-extent-property' for the built-in property names. 5441 See `set-extent-property' for the built-in property names.
5441 */ 5442 */
5442 (extent, property, default_)) 5443 (extent, property, default_))
5443 { 5444 {
5444 EXTENT e = decode_extent (extent, 0); 5445 EXTENT e = decode_extent (extent, 0);
6594 Scans characters forward from POS till it finds a change in the PROP 6595 Scans characters forward from POS till it finds a change in the PROP
6595 property, then returns the position of the change. The optional third 6596 property, then returns the position of the change. The optional third
6596 argument OBJECT is the buffer or string to scan (defaults to the current 6597 argument OBJECT is the buffer or string to scan (defaults to the current
6597 buffer). 6598 buffer).
6598 The property values are compared with `eq'. 6599 The property values are compared with `eq'.
6599 Return nil if the property is constant all the way to the end of BUFFER. 6600 Return nil if the property is constant all the way to the end of OBJECT.
6600 If the value is non-nil, it is a position greater than POS, never equal. 6601 If the value is non-nil, it is a position greater than POS, never equal.
6601 6602
6602 If the optional fourth argument LIMIT is non-nil, don't search 6603 If the optional fourth argument LIMIT is non-nil, don't search
6603 past position LIMIT; return LIMIT if nothing is found before LIMIT. 6604 past position LIMIT; return LIMIT if nothing is found before LIMIT.
6604 If two or more extents with conflicting non-nil values for PROP overlap 6605 If two or more extents with conflicting non-nil values for PROP overlap
6661 Scans characters backward from POS till it finds a change in the PROP 6662 Scans characters backward from POS till it finds a change in the PROP
6662 property, then returns the position of the change. The optional third 6663 property, then returns the position of the change. The optional third
6663 argument OBJECT is the buffer or string to scan (defaults to the current 6664 argument OBJECT is the buffer or string to scan (defaults to the current
6664 buffer). 6665 buffer).
6665 The property values are compared with `eq'. 6666 The property values are compared with `eq'.
6666 Return nil if the property is constant all the way to the start of BUFFER. 6667 Return nil if the property is constant all the way to the start of OBJECT.
6667 If the value is non-nil, it is a position less than POS, never equal. 6668 If the value is non-nil, it is a position less than POS, never equal.
6668 6669
6669 If the optional fourth argument LIMIT is non-nil, don't search back 6670 If the optional fourth argument LIMIT is non-nil, don't search back
6670 past position LIMIT; return LIMIT if nothing is found until LIMIT. 6671 past position LIMIT; return LIMIT if nothing is found until LIMIT.
6671 If two or more extents with conflicting non-nil values for PROP overlap 6672 If two or more extents with conflicting non-nil values for PROP overlap