From ddd931ff513c3663b879621991480673916ae933 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 23 Jul 1993 07:59:08 +0000 Subject: [PATCH] (set_point): Test Vinhibit_point_motion_hooks. --- src/intervals.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/intervals.c b/src/intervals.c index 402b96c4e37..b39709e0b9e 100644 --- a/src/intervals.c +++ b/src/intervals.c @@ -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; -- 2.11.4.GIT