diff options
author | Miles Bader <miles@gnu.org> | 2006-05-17 07:46:49 +0000 |
---|---|---|
committer | Miles Bader <miles@gnu.org> | 2006-05-17 07:46:49 +0000 |
commit | 8e6c9c267f03e451a062b24abec49f12486bade8 (patch) | |
tree | 02004df08d8c886a9bfcd3fcded9742f77e9f13b /src/editfns.c | |
parent | d181adab766ec55fbd3a1eebb3330da6b6b66c8e (diff) | |
parent | 589c8f3614f396ba33ed5f3e57a6a5f79367a6c6 (diff) | |
download | emacs-8e6c9c267f03e451a062b24abec49f12486bade8.tar.gz |
Merge from emacs--devo--0unicode-pre-font-backend
Patches applied:
* emacs--devo--0 (patch 274-284)
- Update from CVS
- Update etc/MORE.STUFF.
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 101)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-62
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 4f8b349b749..4578af6973c 100644 --- a/src/editfns.c +++ b/src/editfns.c @@ -821,6 +821,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); @@ -834,6 +836,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, |