From 33d7d0df7335a043b77c92c73bc81eb20e9769d9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 24 Sep 1994 07:24:30 +0000 Subject: [PATCH] (syms_of_textprop): Doc fix. (Fset_text_properties): Don't let validate_interval_range increment START and END twice. --- src/textprop.c | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/src/textprop.c b/src/textprop.c index 853aa12c902..5f3a4f254f3 100644 --- a/src/textprop.c +++ b/src/textprop.c @@ -892,6 +892,10 @@ is the string or buffer containing the text.") 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 @@ is the string or buffer containing the text.") 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 @@ void 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 */ -- 2.39.5