🚀 go-pugleaf

In GNU Emacs 19.27.2 (sparc-sun-sunos4shr) of Sun Sep 18 1994 on naggum.no

when a string has no property list, and one is created (such as when `read'
is called to parse #("foobar" 0 5 (face bold)), `validate_interval_range'
will be called once with `soft' and then with `hard'.  however, since
`validate_interval_range' increments its arguments if the object is a
string, it will increment them twice, leading to a incorrect treatment of
text properties in strings.  this patch keeps the original values and calls
`validate_interval_string' with the same arguments with `soft' and `hard'.
I think this is a good idea even if object is a buffer.

#<Erik>

---------------------------------------------------------------------------

Fri Sep 23 04:44:38 1994  Erik Naggum  <erik@naggum.no>

	* textprop.c (Fset_text_properties): call validate_interval_range
	with the original argument values when called again with `hard'.

*** src/textprop.c.~1~	Fri Sep  2 23:26:19 1994
--- src/textprop.c	Fri Sep 23 04:35:18 1994
***************
*** 881,886 ****
--- 881,887 ----
    register INTERVAL i, unchanged;
    register INTERVAL prev_changed = NULL_INTERVAL;
    register int s, len;
+   Lisp_Object orig_start = start, orig_end = end;
  
    props = validate_plist (props);
  
***************
*** 894,899 ****
--- 895,905 ----
        if (NILP (props))
  	return Qnil;
  
+       /* we're about to run validate_interval_range for the second time.
+ 	 if object is a string, start and end will have been bumped up,
+ 	 so undo that. */
+       start = orig_start;
+       end = orig_end;
        i = validate_interval_range (object, &start, &end, hard);
        /* This can return if start == end.  */
        if (NULL_INTERVAL_P (i))