Commit ddd931ff authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(set_point): Test Vinhibit_point_motion_hooks.

parent 688a5a0f
......@@ -1311,8 +1311,9 @@ set_point (position, buffer)
/* We run point-left and point-entered hooks here, iff the
two intervals are not equivalent. These hooks take
(old_point, new_point) as arguments. */
if (! intervals_equal (from, to)
|| ! intervals_equal (fromprev, toprev))
if (NILP (Vinhibit_point_motion_hooks)
&& (! intervals_equal (from, to)
|| ! intervals_equal (fromprev, toprev)))
{
Lisp_Object leave_after, leave_before, enter_after, enter_before;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment