--- intervals.c	2002-10-18 12:03:10.000000000 +0200
+++ /cygdrive/l/egoge/akt/intervals.c	2003-02-28 17:10:38.000000000 +0100
@@ -2131,24 +2131,15 @@
      two intervals are not equivalent.  These hooks take
      (old_point, new_point) as arguments.  */
   if (NILP (Vinhibit_point_motion_hooks)
-      && (! intervals_equal (from, to)
-	  || ! intervals_equal (fromprev, toprev)))
+      && (! intervals_equal (from, to)))
     {
-      Lisp_Object leave_after, leave_before, enter_after, enter_before;
+      Lisp_Object leave_before, enter_before;
 
-      if (fromprev)
-	leave_after = textget (fromprev->plist, Qpoint_left);
-      else
-	leave_after = Qnil;
       if (from)
 	leave_before = textget (from->plist, Qpoint_left);
       else
 	leave_before = Qnil;
 
-      if (toprev)
-	enter_after = textget (toprev->plist, Qpoint_entered);
-      else
-	enter_after = Qnil;
       if (to)
 	enter_before = textget (to->plist, Qpoint_entered);
       else
@@ -2157,16 +2148,9 @@
       if (! EQ (leave_before, enter_before) && !NILP (leave_before))
 	call2 (leave_before, make_number (old_position),
 	       make_number (charpos));
-      if (! EQ (leave_after, enter_after) && !NILP (leave_after))
-	call2 (leave_after, make_number (old_position),
-	       make_number (charpos));
-
       if (! EQ (enter_before, leave_before) && !NILP (enter_before))
 	call2 (enter_before, make_number (old_position),
 	       make_number (charpos));
-      if (! EQ (enter_after, leave_after) && !NILP (enter_after))
-	call2 (enter_after, make_number (old_position),
-	       make_number (charpos));
     }
 }