X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/67139f6cfc29722a81660a665650ee897655dd6a..3c53a3cf83c218772d9bcfde4cd60c1face33e93:/src/intervals.h

diff --git a/src/intervals.h b/src/intervals.h
index 13347f4e6e..22a7a772b0 100644
--- a/src/intervals.h
+++ b/src/intervals.h
@@ -195,29 +195,14 @@ Boston, MA 02111-1307, USA.  */
 
 
 /* If PROP is the `invisible' property of a character,
-   this is 1 if the character should be treated as invisible.  */
+   this is 1 if the character should be treated as invisible,
+   and 2 if it is invisible but with an ellipsis.  */
 
 #define TEXT_PROP_MEANS_INVISIBLE(prop)				\
   (EQ (current_buffer->invisibility_spec, Qt)			\
    ? !NILP (prop)						\
    : invisible_p (prop, current_buffer->invisibility_spec))
 
-/* If PROP is the `invisible' property of a character,
-   this is 1 if the character should be treated as invisible
-   and should have an ellipsis.  */
-
-#define TEXT_PROP_MEANS_INVISIBLE_WITH_ELLIPSIS(prop)		\
-  (EQ (current_buffer->invisibility_spec, Qt)			\
-   ? 0								\
-   : 1 == invisible_p (prop, current_buffer->invisibility_spec))
-
-/* As above but for "completely" invisible (no ellipsis).  */
-
-#define TEXT_PROP_MEANS_INVISIBLE_NOELLIPSIS(prop)		\
-  (EQ (current_buffer->invisibility_spec, Qt)			\
-   ? !NILP (prop)						\
-   : 2 == invisible_p (prop, current_buffer->invisibility_spec))
-
 /* Declared in alloc.c */
 
 extern INTERVAL make_interval P_ ((void));
@@ -303,6 +288,12 @@ EXFUN (Fprevious_single_char_property_change, 4);
 extern Lisp_Object copy_text_properties P_ ((Lisp_Object, Lisp_Object,
 					     Lisp_Object, Lisp_Object,
 					     Lisp_Object, Lisp_Object));
+extern Lisp_Object set_text_properties P_ ((Lisp_Object, Lisp_Object,
+					    Lisp_Object, Lisp_Object,
+					    Lisp_Object));
+extern void set_text_properties_1 P_ ((Lisp_Object, Lisp_Object,
+				       Lisp_Object, Lisp_Object, INTERVAL));
+
 Lisp_Object text_property_list P_ ((Lisp_Object, Lisp_Object, Lisp_Object,
 				    Lisp_Object));
 int add_text_properties_from_list P_ ((Lisp_Object, Lisp_Object, Lisp_Object));