Mercurial > emacs
comparison src/intervals.h @ 3534:2323f2160053
(INTERVAL_VISIBLE_P): Use textget.
(INTERVAL_WRITABLE_P): Use textget.
Check Vinhibit_read_only.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 07 Jun 1993 05:28:42 +0000 |
parents | e94a593c3952 |
children | f6eeb536beda |
comparison
equal
deleted
inserted
replaced
3533:78b4e6241f85 | 3534:2323f2160053 |
---|---|
135 as a special glyph, or not at all. */ | 135 as a special glyph, or not at all. */ |
136 #define DISPLAY_INVISIBLE_GLYPH(i) 0 | 136 #define DISPLAY_INVISIBLE_GLYPH(i) 0 |
137 | 137 |
138 /* Is this interval visible? Replace later with cache access */ | 138 /* Is this interval visible? Replace later with cache access */ |
139 #define INTERVAL_VISIBLE_P(i) \ | 139 #define INTERVAL_VISIBLE_P(i) \ |
140 (! NULL_INTERVAL_P (i) && NILP (Fmemq (Qinvisible, (i)->plist))) | 140 (! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qinvisible))) |
141 | 141 |
142 /* Is this interval writable? Replace later with cache access */ | 142 /* Is this interval writable? Replace later with cache access */ |
143 #define INTERVAL_WRITABLE_P(i) \ | 143 #define INTERVAL_WRITABLE_P(i) \ |
144 (! NULL_INTERVAL_P (i) && NILP (Fmemq (Qread_only, (i)->plist))) | 144 (! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qread_only)) \ |
145 && (NILP (Vinhibit_read_only) \ | |
146 || (CONSP (Vinhibit_read_only) \ | |
147 && !NILP (Fmemq (textget ((i)->plist, Qread_only), \ | |
148 Vinhibit_read_only))))) | |
145 | 149 |
146 /* Macros to tell whether insertions before or after this interval | 150 /* Macros to tell whether insertions before or after this interval |
147 should stick to it. */ | 151 should stick to it. */ |
148 #define FRONT_STICKY_P(i) ((i)->front_sticky != 0) | 152 #define FRONT_STICKY_P(i) ((i)->front_sticky != 0) |
149 #define END_STICKY_P(i) ((i)->rear_sticky != 0) | 153 #define END_STICKY_P(i) ((i)->rear_sticky != 0) |