Commit 113d9015 authored by Karl Heuer's avatar Karl Heuer

(Frecenter): Don't trigger point-motion hooks.

parent db03492e
......@@ -2629,7 +2629,7 @@ redraws with point in the center of the current window.")
{
register struct window *w = XWINDOW (selected_window);
register int ht = window_internal_height (w);
register int opoint = PT;
struct position pos;
Lisp_Object window;
if (NILP (n))
......@@ -2652,14 +2652,14 @@ redraws with point in the center of the current window.")
if (XINT (n) < 0)
XSETINT (n, XINT (n) + ht);
XSETINT (n, - XINT (n));
XSET (window, Lisp_Window, w);
Fvertical_motion (n, window);
Fset_marker (w->start, make_number (PT), w->buffer);
w->start_at_line_beg = Fbolp ();
pos = *vmotion (point, - XINT (n), window_internal_width (w) - 1,
XINT (w->hscroll), window);
SET_PT (opoint);
Fset_marker (w->start, make_number (pos.bufpos), w->buffer);
w->start_at_line_beg = ((pos.bufpos == BEGV
|| FETCH_CHAR (pos.bufpos - 1) == '\n')
? Qt : Qnil);
w->force_start = Qt;
return Qnil;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment