# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764715744 0
# Node ID e42af7949b19aebb1f2ec6e58081f64488bdfb48
# Parent  fd0c4b42a63be05fde3e404fe7e1e08b5aae7516
(verify_interval_modification): For insertion in
middle of an interval, use the same criterion as between intervals
for whether read-only forbids it.

diff -r fd0c4b42a63b -r e42af7949b19 src/intervals.c
--- a/src/intervals.c	Sat Mar 26 20:57:49 1994 +0000
+++ b/src/intervals.c	Sat Mar 26 21:02:24 1994 +0000
@@ -1847,8 +1847,7 @@
 			error ("Attempt to insert within read-only text");
 		    }
 		}
-	      else
-		after = Qnil;
+
 	      if (! NULL_INTERVAL_P (prev))
 		{
 		  before = textget (prev->plist, Qread_only);
@@ -1868,18 +1867,30 @@
 			error ("Attempt to insert within read-only text");
 		    }
 		}
-	      else
-		before = Qnil;
 	    }
 	  else if (! NULL_INTERVAL_P (i))
-	    before = after = textget (i->plist, Qread_only);
-	  if (! NULL_INTERVAL_P (i) && ! NULL_INTERVAL_P (prev))
 	    {
-	      /* If I and PREV differ, neither of them has a sticky
-		 read-only property. It only remains to check, whether
-		 they have a common read-only property.  */
-	      if (! NILP (before) && EQ (before, after))
-		error ("Attempt to insert within read-only text");
+	      after = textget (i->plist, Qread_only);
+		  
+	      /* If interval I is read-only and read-only is
+		 front-sticky, inhibit insertion.
+		 Check for read-only as well as category.  */
+	      if (! NILP (after) && NILP (Fmemq (after, Vinhibit_read_only)))
+		{
+		  Lisp_Object tem;
+
+		  tem = textget (i->plist, Qfront_sticky);
+		  if (TMEM (Qread_only, tem)
+		      || (NILP (textget_direct (i->plist, Qread_only))
+			  && TMEM (Qcategory, tem)))
+		    error ("Attempt to insert within read-only text");
+
+		  tem = textget (prev->plist, Qrear_nonsticky);
+		  if (! TMEM (Qread_only, tem)
+		      && (! NILP (textget_direct (prev->plist, Qread_only))
+			  || ! TMEM (Qcategory, tem)))
+		    error ("Attempt to insert within read-only text");
+		}
 	    }
 	}