mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(INTERVAL_WRITABLE_P): Fix backwards tests.

Browse Source
This commit is contained in:
Richard M. Stallman 1993-06-08 21:08:56 +00:00
parent 798c05c3b6
commit 5f8a398a50
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/intervals.h
View File

@ -140,12 +140,13 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
(! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qinvisible)))
/* Is this interval writable? Replace later with cache access */
#define INTERVAL_WRITABLE_P(i) \
(! NULL_INTERVAL_P (i) && NILP (textget ((i)->plist, Qread_only)) \
&& (NILP (Vinhibit_read_only) \
|| (CONSP (Vinhibit_read_only) \
&& !NILP (Fmemq (textget ((i)->plist, Qread_only), \
Vinhibit_read_only)))))
#define INTERVAL_WRITABLE_P(i) \
(! NULL_INTERVAL_P (i) \
&& (NILP (textget ((i)->plist, Qread_only)) \
|| ((CONSP (Vinhibit_read_only) \
? !NILP (Fmemq (textget ((i)->plist, Qread_only), \
Vinhibit_read_only)) \
: !NILP (Vinhibit_read_only))))) \
/* Macros to tell whether insertions before or after this interval
should stick to it. */