Mercurial > emacs
changeset 9071:2d4d0f6e7be0
(syms_of_textprop): Doc fix.
(Fset_text_properties): Don't let validate_interval_range
increment START and END twice.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 24 Sep 1994 07:24:30 +0000 |
| parents | b261d80c1b23 |
| children | 21517199cfae |
| files | src/textprop.c |
| diffstat | 1 files changed, 11 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/textprop.c Sat Sep 24 07:04:52 1994 +0000 +++ b/src/textprop.c Sat Sep 24 07:24:30 1994 +0000 @@ -892,6 +892,10 @@ register INTERVAL i, unchanged; register INTERVAL prev_changed = NULL_INTERVAL; register int s, len; + Lisp_Object ostart, oend; + + ostart = start; + oend = end; props = validate_plist (props); @@ -905,6 +909,11 @@ if (NILP (props)) return Qnil; + /* Restore the original START and END values + because validate_interval_range increments them for strings. */ + start = ostart; + end = oend; + i = validate_interval_range (object, &start, &end, hard); /* This can return if start == end. */ if (NULL_INTERVAL_P (i)) @@ -1326,8 +1335,8 @@ syms_of_textprop () { DEFVAR_LISP ("inhibit-point-motion-hooks", &Vinhibit_point_motion_hooks, - "If non-nil, don't call the text property values of\n\ -`point-left' and `point-entered'."); + "If non-nil, don't run `point-left' and `point-entered' text properties.\n\ +This also inhibits the use of the `intangible' text property."); Vinhibit_point_motion_hooks = Qnil; /* Common attributes one might give text */