diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2006-05-12 17:39:39 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2006-05-12 17:39:39 +0000 |
commit | 4e8f005c08487874cfb812f271e4d7c103eb40e7 (patch) | |
tree | 2f7e073506f572391fecd597dcaabf07205f54ef /src/editfns.c | |
parent | d041c8c9610396456c7b2e7b49b0dab05e97f965 (diff) | |
download | emacs-4e8f005c08487874cfb812f271e4d7c103eb40e7.tar.gz |
* 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.
Diffstat (limited to 'src/editfns.c')
-rw-r--r-- | src/editfns.c | 4 |
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, |