comparison src/xdisp.c @ 21748:c423e8929f69

(Qinhibit_point_motion_hooks): New variable. (syms_of_xdisp): Init and staticpro it. (redisplay_window): Bind the symbol to t.

21747:c11ef8945466

extern Lisp_Object Voverriding_local_map_menu_flag;

Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
Lisp_Object Qredisplay_end_trigger_functions;

/* Nonzero means print newline to stdout before next minibuffer message.  */

int noninteractive_need_newline;

  int opoint_byte = PT_BYTE;
  int tem;
  int update_mode_line;
  struct Lisp_Char_Table *dp = window_display_table (w);
  int really_switched_buffer = 0;

  if (Z == Z_BYTE && lpoint != lpoint_byte)
    abort ();
  if (lpoint_byte < lpoint)
    abort ();

      redisplay_windows (w->hchild, preserve_echo_area);
      return;
    }
  if (NILP (w->buffer))
    abort ();
  
  height = window_internal_height (w);
  update_mode_line = (!NILP (w->update_mode_line) || update_mode_lines);
  if (XBUFFER (w->buffer)->clip_changed)
    update_mode_line = 1;

  if (really_switched_buffer)
    set_buffer_internal_1 (old);
  else
    set_buffer_temp (old);
  TEMP_SET_PT_BOTH (lpoint, lpoint_byte);
}

/* Do full redisplay on one window, starting at position `pos'. */

static void

  Qwindow_scroll_functions = intern ("window-scroll-functions");

  staticpro (&Qredisplay_end_trigger_functions);
  Qredisplay_end_trigger_functions = intern ("redisplay-end-trigger-functions");

  staticpro (&last_arrow_position);
  staticpro (&last_arrow_string);
  last_arrow_position = Qnil;
  last_arrow_string = Qnil;

21748:c423e8929f69

extern Lisp_Object Voverriding_local_map_menu_flag;

Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map;
Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions;
Lisp_Object Qredisplay_end_trigger_functions;
Lisp_Object Qinhibit_point_motion_hooks;

/* Nonzero means print newline to stdout before next minibuffer message.  */

int noninteractive_need_newline;

  int opoint_byte = PT_BYTE;
  int tem;
  int update_mode_line;
  struct Lisp_Char_Table *dp = window_display_table (w);
  int really_switched_buffer = 0;
  int count = specpdl_ptr - specpdl;

  if (Z == Z_BYTE && lpoint != lpoint_byte)
    abort ();
  if (lpoint_byte < lpoint)
    abort ();

      redisplay_windows (w->hchild, preserve_echo_area);
      return;
    }
  if (NILP (w->buffer))
    abort ();

  specbind (Qinhibit_point_motion_hooks, Qt);

  height = window_internal_height (w);
  update_mode_line = (!NILP (w->update_mode_line) || update_mode_lines);
  if (XBUFFER (w->buffer)->clip_changed)
    update_mode_line = 1;

  if (really_switched_buffer)
    set_buffer_internal_1 (old);
  else
    set_buffer_temp (old);
  TEMP_SET_PT_BOTH (lpoint, lpoint_byte);

  unbind_to (count, Qnil);
}

/* Do full redisplay on one window, starting at position `pos'. */

static void

  Qwindow_scroll_functions = intern ("window-scroll-functions");

  staticpro (&Qredisplay_end_trigger_functions);
  Qredisplay_end_trigger_functions = intern ("redisplay-end-trigger-functions");

  staticpro (&Qinhibit_point_motion_hooks);
  Qinhibit_point_motion_hooks = intern ("inhibit-point-motion-hooks");

  staticpro (&last_arrow_position);
  staticpro (&last_arrow_string);
  last_arrow_position = Qnil;
  last_arrow_string = Qnil;