From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 23 Jul 1993 07:59:08 +0000 (+0000)
Subject: (set_point): Test Vinhibit_point_motion_hooks.
X-Git-Tag: emacs-19.34~11608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ddd931ff513c3663b879621991480673916ae933;p=emacs.git

(set_point): Test Vinhibit_point_motion_hooks.
---

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;