From 4e8f005c08487874cfb812f271e4d7c103eb40e7 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Fri, 12 May 2006 17:39:39 +0000 Subject: * intervals.c (set_point_both): Fix mixup before before and after in variable names. * editfns.c (Fline_beginning_position): Inhibit point-motion hooks while setting point temporarily. --- src/editfns.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/editfns.c') 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, -- cgit v1.2.1