# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739573736 0
# Node ID f6eeb536beda82378f71cbed78096a955bfd828f
# Parent  e0826cb2833bff148ab6c3553ccdbe63f845a798
(INTERVAL_WRITABLE_P): Fix backwards tests.

diff -r e0826cb2833b -r f6eeb536beda src/intervals.h
--- a/src/intervals.h	Tue Jun 08 20:59:11 1993 +0000
+++ b/src/intervals.h	Tue Jun 08 21:08:56 1993 +0000
@@ -140,12 +140,13 @@
   (! 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. */