# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 739430922 0
# Node ID 2323f21600532045bbc2b3d7d9fb4830f21e5871
# Parent  78b4e6241f85c4230b5acc6f300fcf41b9db7b1b
(INTERVAL_VISIBLE_P): Use textget.
(INTERVAL_WRITABLE_P): Use textget.
Check Vinhibit_read_only.

diff -r 78b4e6241f85 -r 2323f2160053 src/intervals.h
--- a/src/intervals.h	Mon Jun 07 05:07:34 1993 +0000
+++ b/src/intervals.h	Mon Jun 07 05:28:42 1993 +0000
@@ -137,11 +137,15 @@
 
 /* Is this interval visible?  Replace later with cache access */
 #define INTERVAL_VISIBLE_P(i) \
-  (! NULL_INTERVAL_P (i) && NILP (Fmemq (Qinvisible, (i)->plist)))
+  (! 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 (Fmemq (Qread_only, (i)->plist)))
+  (! 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)))))
 
 /* Macros to tell whether insertions before or after this interval
    should stick to it. */