diff options
| author | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-08 10:11:29 +0400 |
|---|---|---|
| committer | Dmitry Antipov <dmantipov@yandex.ru> | 2012-08-08 10:11:29 +0400 |
| commit | 77c7bcb1157b405bde1227b20ef5f7ce9a90e689 (patch) | |
| tree | 3daa729dc8fd54db0dff9ace5de1274e992a7d6b /src/print.c | |
| parent | 9c08a8d4b549df18f815412d2a5494d28253179f (diff) | |
| download | emacs-77c7bcb1157b405bde1227b20ef5f7ce9a90e689.tar.gz | |
Cleanup intervals.
* intervals.h (NULL_INTERVAL, DEFAULT_INTERVAL): Remove.
(NULL_INTERVAL_P): Likewise. Adjust users.
(FRONT_STICKY_P, END_NONSTICKY_P, FRONT_NONSTICKY_P): Adjust
comment. Move under #if 0.
* alloc.c, buffer.c, editfns.c, fns.c, insdel.c, intervals.c:
* print.c, syntax.c, textprop.c, xdisp.c: Adjust users.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c index 4a8c3fda319..1e9f237ee82 100644 --- a/src/print.c +++ b/src/print.c @@ -1408,7 +1408,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag if (! EQ (Vprint_charset_text_property, Qt)) obj = print_prune_string_charset (obj); - if (!NULL_INTERVAL_P (STRING_INTERVALS (obj))) + if (STRING_INTERVALS (obj)) { PRINTCHAR ('#'); PRINTCHAR ('('); @@ -1499,7 +1499,7 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag } PRINTCHAR ('\"'); - if (!NULL_INTERVAL_P (STRING_INTERVALS (obj))) + if (STRING_INTERVALS (obj)) { traverse_intervals (STRING_INTERVALS (obj), 0, print_interval, printcharfun); |