Commit c8a4fc3d authored by Karl Heuer's avatar Karl Heuer
Browse files

(Ftext_properties_at, Fget_char_property, Fnext_property_change,

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