# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743414348 0
# Node ID 23fe7f6c9ae49ce071082d344aa55d4a9ab303cc
# Parent  49007dbbec4c1460d2ba1580ec20720cb490a770
(set_point): Test Vinhibit_point_motion_hooks.

diff -r 49007dbbec4c -r 23fe7f6c9ae4 src/intervals.c
--- a/src/intervals.c	Fri Jul 23 07:58:22 1993 +0000
+++ b/src/intervals.c	Fri Jul 23 07:59:08 1993 +0000
@@ -1311,8 +1311,9 @@
   /* 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;