mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(Ftext_properties_at, Fget_char_property, Fnext_property_change,

Browse source 
property_change_between_p, Fnext_single_property_change,
Fprevious_property_change, Fprevious_single_property_change,
Fadd_text_properties, Fset_text_properties, Fremove_text_properties,
Ftext_property_any, Ftext_property_not_all, Ferase_text_properties): Use new
accessor macros instead of calling XSET directly.
This commit is contained in:
Karl Heuer 1994-10-04 12:27:29 +00:00
parent c81d47b43d
commit c8a4fc3d27
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/textprop.c
View file

@ -485,7 +485,7 @@ If POSITION is at the end of OBJECT, the value is nil.")
register INTERVAL i;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &pos, &pos, soft);
if (NULL_INTERVAL_P (i))
@ -528,7 +528,7 @@ overlays are considered only if they are associated with OBJECT.")
CHECK_NUMBER_COERCE_MARKER (pos, 0);
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
if (WINDOWP (object))
{
@ -590,7 +590,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.")
register INTERVAL i, next;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
if (!NILP (limit))
CHECK_NUMBER_COERCE_MARKER (limit, 0);
@ -622,7 +622,7 @@ property_change_between_p (beg, end)
register INTERVAL i, next;
Lisp_Object object, pos;
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
XFASTINT (pos) = beg;
i = validate_interval_range (object, &pos, &pos, soft);
@ -663,7 +663,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT.")
register Lisp_Object here_val;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
if (!NILP (limit))
CHECK_NUMBER_COERCE_MARKER (limit, 0);
@ -704,7 +704,7 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.")
register INTERVAL i, previous;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
if (!NILP (limit))
CHECK_NUMBER_COERCE_MARKER (limit, 0);
@ -751,7 +751,7 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT.")
register Lisp_Object here_val;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
if (!NILP (limit))
CHECK_NUMBER_COERCE_MARKER (limit, 0);
@ -802,7 +802,7 @@ Return t if any property value actually changed, nil otherwise.")
return Qnil;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, hard);
if (NULL_INTERVAL_P (i))
@ -900,7 +900,7 @@ is the string or buffer containing the text.")
props = validate_plist (props);
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, soft);
if (NULL_INTERVAL_P (i))
@ -995,7 +995,7 @@ Return t if any property was actually removed, nil otherwise.")
register int s, len, modified = 0;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, soft);
if (NULL_INTERVAL_P (i))
@ -1071,7 +1071,7 @@ containing the text.")
register int e, pos;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, soft);
e = XINT (end);
@ -1105,7 +1105,7 @@ containing the text.")
register int s, e;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, soft);
if (NULL_INTERVAL_P (i))
return (NILP (value) || EQ (start, end)) ? Qnil : start;
@ -1142,7 +1142,7 @@ is the string or buffer containing the text.")
register int s, len, modified;
if (NILP (object))
XSET (object, Lisp_Buffer, current_buffer);
XSETBUFFER (object, current_buffer);
i = validate_interval_range (object, &start, &end, soft);
if (NULL_INTERVAL_P (i))