Mercurial > emacs

diff src/intervals.c @ 4243:23fe7f6c9ae4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_point): Test Vinhibit_point_motion_hooks.
author Richard M. Stallman <rms@gnu.org>
date Fri, 23 Jul 1993 07:59:08 +0000
parents b044f6d3c4cb
children d4a36c1669e6
line wrap: on
line diff
--- 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;