comparison src/intervals.c @ 5780:07449eefd453

(verify_interval_modification): When checking read-only, allow for the case that stickiness might be t instead of a list.

5779:8fae1a51e9c5

		  
		  /* 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))
		      && (! NILP (Fmemq (Qread_only,
					 textget (i->plist, Qfront_sticky)))
			  || (NILP (textget_direct (i->plist, Qread_only))
			      && ! NILP (Fmemq (Qcategory,
						textget (i->plist,
							 Qfront_sticky))))))
		    error ("Attempt to insert within read-only text");
		}
	      else
		after = Qnil;
	      if (! NULL_INTERVAL_P (prev))
		{

		  
		  /* If interval PREV is read-only and read-only isn't
		     rear-nonsticky, inhibit insertion.
		     Check for read-only as well as category.  */
		  if (! NILP (before)
		      && NILP (Fmemq (before, Vinhibit_read_only))
		      && NILP (Fmemq (Qread_only,
				      textget (prev->plist, Qrear_nonsticky)))
		      && (! NILP (textget_direct (prev->plist,Qread_only))
			  || NILP (Fmemq (Qcategory,
					  textget (prev->plist,
						   Qrear_nonsticky)))))
		    error ("Attempt to insert within read-only text");
		}
	      else
		before = Qnil;
	    }
	  else if (! NULL_INTERVAL_P (i))

5780:07449eefd453

		  
		  /* 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");
		    }
		}
	      else
		after = Qnil;
	      if (! NULL_INTERVAL_P (prev))
		{

		  
		  /* If interval PREV is read-only and read-only isn't
		     rear-nonsticky, inhibit insertion.
		     Check for read-only as well as category.  */
		  if (! NILP (before)
		      && NILP (Fmemq (before, Vinhibit_read_only)))
		    {
		      Lisp_Object tem;

		      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");
		    }
		}
	      else
		before = Qnil;
	    }
	  else if (! NULL_INTERVAL_P (i))