1 files changed, 4 insertions, 0 deletions

diff --git a/src/editfns.c b/src/editfns.c
index b74fd2a41c2..85ce94c8f8a 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -823,6 +823,8 @@ This function does not move point.  */)
      Lisp_Object n;
 {
   int orig, orig_byte, end;
+  int count = SPECPDL_INDEX ();
+  specbind (Qinhibit_point_motion_hooks, Qt);
 
   if (NILP (n))
     XSETFASTINT (n, 1);
@@ -836,6 +838,8 @@ This function does not move point.  */)
 
   SET_PT_BOTH (orig, orig_byte);
 
+  unbind_to (count, Qnil);
+
   /* Return END constrained to the current input field.  */
   return Fconstrain_to_field (make_number (end), make_number (orig),
                               XINT (n) != 1 ? Qt : Qnil,