Commit 4bde4d4f authored by YAMAMOTO Mitsuharu's avatar YAMAMOTO Mitsuharu
Browse files

(redisplay_internal): Bind inhibit-point-motion-hooks to t

around current_column call.
parent 4a508479
2007-05-28 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* xdisp.c (redisplay_internal): Bind inhibit-point-motion-hooks to t
around current_column call.
2007-05-24 Chong Yidong <cyd@stupidchicken.com>
 
* xdisp.c (redisplay_window): If first window line is a
......
......@@ -10836,7 +10836,7 @@ redisplay_internal (preserve_echo_area)
int must_finish = 0;
struct text_pos tlbufpos, tlendpos;
int number_of_visible_frames;
int count;
int count, count1;
struct frame *sf;
int polling_stopped_here = 0;
 
......@@ -10974,6 +10974,10 @@ redisplay_internal (preserve_echo_area)
update_mode_lines++;
}
 
/* Avoid invocation of point motion hooks by `current_column' below. */
count1 = SPECPDL_INDEX ();
specbind (Qinhibit_point_motion_hooks, Qt);
/* If %c is in the mode line, update it if needed. */
if (!NILP (w->column_number_displayed)
/* This alternative quickly identifies a common case
......@@ -10985,6 +10989,8 @@ redisplay_internal (preserve_echo_area)
!= (int) current_column ())) /* iftc */
w->update_mode_line = Qt;
 
unbind_to (count1, Qnil);
FRAME_SCROLL_BOTTOM_VPOS (XFRAME (w->frame)) = -1;
 
/* The variable buffer_shared is set in redisplay_window and
......
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