summaryrefslogtreecommitdiff
path: root/src/textprop.c
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2011-04-13 22:04:02 -0700
committerPaul Eggert <eggert@cs.ucla.edu>2011-04-13 22:04:02 -0700
commita7ca3326c4740ed3ed118b794d35d235de49f346 (patch)
tree5d38e0eac8e839c84a4ccb6e8a07c3c7858fff54 /src/textprop.c
parente87b6180b08c60a256dd8557945321ce2354a3a9 (diff)
downloademacs-a7ca3326c4740ed3ed118b794d35d235de49f346.tar.gz
Undo the DEFUN->DEFUE change.
Diffstat (limited to 'src/textprop.c')
-rw-r--r--src/textprop.c34
1 files changed, 17 insertions, 17 deletions
diff --git a/src/textprop.c b/src/textprop.c
index e85b041891c..7ce488334e8 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -548,7 +548,7 @@ interval_of (int position, Lisp_Object object)
return find_interval (i, position);
}
-DEFUE ("text-properties-at", Ftext_properties_at,
+DEFUN ("text-properties-at", Ftext_properties_at,
Stext_properties_at, 1, 2, 0,
doc: /* Return the list of properties of the character at POSITION in OBJECT.
If the optional second argument OBJECT is a buffer (or nil, which means
@@ -575,7 +575,7 @@ If POSITION is at the end of OBJECT, the value is nil. */)
return i->plist;
}
-DEFUE ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
+DEFUN ("get-text-property", Fget_text_property, Sget_text_property, 2, 3, 0,
doc: /* Return the value of POSITION's property PROP, in OBJECT.
OBJECT is optional and defaults to the current buffer.
If POSITION is at the end of OBJECT, the value is nil. */)
@@ -650,7 +650,7 @@ get_char_property_and_overlay (Lisp_Object position, register Lisp_Object prop,
return Fget_text_property (position, prop, object);
}
-DEFUE ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0,
+DEFUN ("get-char-property", Fget_char_property, Sget_char_property, 2, 3, 0,
doc: /* Return the value of POSITION's property PROP, in OBJECT.
Both overlay properties and text properties are checked.
OBJECT is optional and defaults to the current buffer.
@@ -687,7 +687,7 @@ POSITION is at the end of OBJECT, both car and cdr are nil. */)
}
-DEFUE ("next-char-property-change", Fnext_char_property_change,
+DEFUN ("next-char-property-change", Fnext_char_property_change,
Snext_char_property_change, 1, 2, 0,
doc: /* Return the position of next text property or overlay change.
This scans characters forward in the current buffer from POSITION till
@@ -712,7 +712,7 @@ LIMIT is a no-op if it is greater than (point-max). */)
return Fnext_property_change (position, Qnil, temp);
}
-DEFUE ("previous-char-property-change", Fprevious_char_property_change,
+DEFUN ("previous-char-property-change", Fprevious_char_property_change,
Sprevious_char_property_change, 1, 2, 0,
doc: /* Return the position of previous text property or overlay change.
Scans characters backward in the current buffer from POSITION till it
@@ -738,7 +738,7 @@ LIMIT is a no-op if it is less than (point-min). */)
}
-DEFUE ("next-single-char-property-change", Fnext_single_char_property_change,
+DEFUN ("next-single-char-property-change", Fnext_single_char_property_change,
Snext_single_char_property_change, 2, 4, 0,
doc: /* Return the position of next text property or overlay change for a specific property.
Scans characters forward from POSITION till it finds
@@ -821,7 +821,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
return position;
}
-DEFUE ("previous-single-char-property-change",
+DEFUN ("previous-single-char-property-change",
Fprevious_single_char_property_change,
Sprevious_single_char_property_change, 2, 4, 0,
doc: /* Return the position of previous text property or overlay change for a specific property.
@@ -914,7 +914,7 @@ back past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
return position;
}
-DEFUE ("next-property-change", Fnext_property_change,
+DEFUN ("next-property-change", Fnext_property_change,
Snext_property_change, 1, 3, 0,
doc: /* Return the position of next property change.
Scans characters forward from POSITION in OBJECT till it finds
@@ -978,7 +978,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
return make_number (next->position);
}
-DEFUE ("next-single-property-change", Fnext_single_property_change,
+DEFUN ("next-single-property-change", Fnext_single_property_change,
Snext_single_property_change, 2, 4, 0,
doc: /* Return the position of next property change for a specific property.
Scans characters forward from POSITION till it finds
@@ -1026,7 +1026,7 @@ past position LIMIT; return LIMIT if nothing is found before LIMIT. */)
return make_number (next->position);
}
-DEFUE ("previous-property-change", Fprevious_property_change,
+DEFUN ("previous-property-change", Fprevious_property_change,
Sprevious_property_change, 1, 3, 0,
doc: /* Return the position of previous property change.
Scans characters backwards from POSITION in OBJECT till it finds
@@ -1073,7 +1073,7 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT. */)
return make_number (previous->position + LENGTH (previous));
}
-DEFUE ("previous-single-property-change", Fprevious_single_property_change,
+DEFUN ("previous-single-property-change", Fprevious_single_property_change,
Sprevious_single_property_change, 2, 4, 0,
doc: /* Return the position of previous property change for a specific property.
Scans characters backward from POSITION till it finds
@@ -1127,7 +1127,7 @@ back past position LIMIT; return LIMIT if nothing is found until LIMIT. */)
/* Callers note, this can GC when OBJECT is a buffer (or nil). */
-DEFUE ("add-text-properties", Fadd_text_properties,
+DEFUN ("add-text-properties", Fadd_text_properties,
Sadd_text_properties, 3, 4, 0,
doc: /* Add properties to the text from START to END.
The third argument PROPERTIES is a property list
@@ -1236,7 +1236,7 @@ Return t if any property value actually changed, nil otherwise. */)
/* Callers note, this can GC when OBJECT is a buffer (or nil). */
-DEFUE ("put-text-property", Fput_text_property,
+DEFUN ("put-text-property", Fput_text_property,
Sput_text_property, 4, 5, 0,
doc: /* Set one property of the text from START to END.
The third and fourth arguments PROPERTY and VALUE
@@ -1252,7 +1252,7 @@ markers). If OBJECT is a string, START and END are 0-based indices into it. */
return Qnil;
}
-DEFUE ("set-text-properties", Fset_text_properties,
+DEFUN ("set-text-properties", Fset_text_properties,
Sset_text_properties, 3, 4, 0,
doc: /* Completely replace properties of text from START to END.
The third argument PROPERTIES is the new property list.
@@ -1419,7 +1419,7 @@ set_text_properties_1 (Lisp_Object start, Lisp_Object end, Lisp_Object propertie
while (len > 0);
}
-DEFUE ("remove-text-properties", Fremove_text_properties,
+DEFUN ("remove-text-properties", Fremove_text_properties,
Sremove_text_properties, 3, 4, 0,
doc: /* Remove some properties from text from START to END.
The third argument PROPERTIES is a property list
@@ -1509,7 +1509,7 @@ Use `set-text-properties' if you want to remove all text properties. */)
}
}
-DEFUE ("remove-list-of-text-properties", Fremove_list_of_text_properties,
+DEFUN ("remove-list-of-text-properties", Fremove_list_of_text_properties,
Sremove_list_of_text_properties, 3, 4, 0,
doc: /* Remove some properties from text from START to END.
The third argument LIST-OF-PROPERTIES is a list of property names to remove.
@@ -1619,7 +1619,7 @@ Return t if any property was actually removed, nil otherwise. */)
}
}
-DEFUE ("text-property-any", Ftext_property_any,
+DEFUN ("text-property-any", Ftext_property_any,
Stext_property_any, 4, 5, 0,
doc: /* Check text from START to END for property PROPERTY equalling VALUE.
If so, return the position of the first character whose property PROPERTY