diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2011-04-13 22:04:02 -0700 |
commit | a7ca3326c4740ed3ed118b794d35d235de49f346 (patch) | |
tree | 5d38e0eac8e839c84a4ccb6e8a07c3c7858fff54 /src/textprop.c | |
parent | e87b6180b08c60a256dd8557945321ce2354a3a9 (diff) | |
download | emacs-a7ca3326c4740ed3ed118b794d35d235de49f346.tar.gz |
Undo the DEFUN->DEFUE change.
Diffstat (limited to 'src/textprop.c')
-rw-r--r-- | src/textprop.c | 34 |
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 |