[Emacs-diffs] Changes to emacs/src/editfns.c

[Chong Yidong]

Index: emacs/src/editfns.c
diff -u emacs/src/editfns.c:1.414 emacs/src/editfns.c:1.415
--- emacs/src/editfns.c:1.414   Tue Apr 25 08:18:01 2006
+++ emacs/src/editfns.c Fri May 12 17:39:39 2006
@@ -823,6 +823,8 @@
      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 @@
 
   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,