diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 22:04:42 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 22:04:42 +0000 |
| commit | 675c72c7555fd498525e8d307828e135f77f6b48 (patch) | |
| tree | dc41921bd6d20a35d7f245c879a37629d9bc7651 /src/intervals.h | |
| parent | 62af6cac9e696177c5c99fb74c7efbace0ad989c (diff) | |
| download | emacs-675c72c7555fd498525e8d307828e135f77f6b48.tar.gz | |
(TEXT_PROP_MEANS_INVISIBLE_NOELLIPSIS): New macro.
(traverse_intervals_noorder, invisible_noellipsis_p): New funs.
Diffstat (limited to 'src/intervals.h')
| -rw-r--r-- | src/intervals.h | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/src/intervals.h b/src/intervals.h index 3b01440cf40..c5dd03b4250 100644 --- a/src/intervals.h +++ b/src/intervals.h @@ -199,7 +199,7 @@ Boston, MA 02111-1307, USA. */ #define TEXT_PROP_MEANS_INVISIBLE(prop) \ (EQ (current_buffer->invisibility_spec, Qt) \ - ? ! NILP (prop) \ + ? !NILP (prop) \ : invisible_p (prop, current_buffer->invisibility_spec)) /* If PROP is the `invisible' property of a character, @@ -211,6 +211,13 @@ Boston, MA 02111-1307, USA. */ ? 0 \ : invisible_ellipsis_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) \ + : invisible_noellipsis_p (prop, current_buffer->invisibility_spec)) + /* Declared in alloc.c */ extern INTERVAL make_interval P_ ((void)); @@ -220,7 +227,10 @@ extern INTERVAL make_interval P_ ((void)); extern INTERVAL create_root_interval P_ ((Lisp_Object)); extern void copy_properties P_ ((INTERVAL, INTERVAL)); extern int intervals_equal P_ ((INTERVAL, INTERVAL)); -extern void traverse_intervals P_ ((INTERVAL, int, int, +extern void traverse_intervals P_ ((INTERVAL, int, + void (*) (INTERVAL, Lisp_Object), + Lisp_Object)); +extern void traverse_intervals_noorder P_ ((INTERVAL, void (*) (INTERVAL, Lisp_Object), Lisp_Object)); extern INTERVAL split_interval_right P_ ((INTERVAL, int)); @@ -255,6 +265,8 @@ extern INTERVAL validate_interval_range P_ ((Lisp_Object, Lisp_Object *, /* Defined in xdisp.c */ extern int invisible_ellipsis_p P_ ((Lisp_Object, Lisp_Object)); +extern int invisible_p P_ ((Lisp_Object, Lisp_Object)); +extern int invisible_noellipsis_p P_ ((Lisp_Object, Lisp_Object)); /* Declared in textprop.c */ |