diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/xdisp.c | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index ead4b78f8a0..a1b5a2ea88f 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -50,7 +50,7 @@ extern Lisp_Object Voverriding_local_map_menu_flag; | |||
| 50 | 50 | ||
| 51 | Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map; | 51 | Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map; |
| 52 | Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions; | 52 | Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions; |
| 53 | Lisp_Object Qredisplay_end_trigger_hook; | 53 | Lisp_Object Qredisplay_end_trigger_functions; |
| 54 | 54 | ||
| 55 | /* Nonzero means print newline to stdout before next minibuffer message. */ | 55 | /* Nonzero means print newline to stdout before next minibuffer message. */ |
| 56 | 56 | ||
| @@ -2725,7 +2725,13 @@ display_text_line (w, start, vpos, hpos, taboffset) | |||
| 2725 | run the hook. */ | 2725 | run the hook. */ |
| 2726 | if (pos >= e_t_h && e_t_h != ZV) | 2726 | if (pos >= e_t_h && e_t_h != ZV) |
| 2727 | { | 2727 | { |
| 2728 | Frun_hooks (1, &Qredisplay_end_trigger_hook); | 2728 | Lisp_Object args[3]; |
| 2729 | |||
| 2730 | args[0] = Qredisplay_end_trigger_functions; | ||
| 2731 | XSETWINDOW (args[1], w); | ||
| 2732 | XSETINT (args[2], e_t_h); | ||
| 2733 | Frun_hook_with_args (3, args); | ||
| 2734 | |||
| 2729 | w->redisplay_end_trigger = Qnil; | 2735 | w->redisplay_end_trigger = Qnil; |
| 2730 | e_t_h = ZV; | 2736 | e_t_h = ZV; |
| 2731 | /* Notice if it changed the face of this character. */ | 2737 | /* Notice if it changed the face of this character. */ |
| @@ -4257,8 +4263,8 @@ syms_of_xdisp () | |||
| 4257 | staticpro (&Qwindow_scroll_functions); | 4263 | staticpro (&Qwindow_scroll_functions); |
| 4258 | Qwindow_scroll_functions = intern ("window-scroll-functions"); | 4264 | Qwindow_scroll_functions = intern ("window-scroll-functions"); |
| 4259 | 4265 | ||
| 4260 | staticpro (&Qredisplay_end_trigger_hook); | 4266 | staticpro (&Qredisplay_end_trigger_functions); |
| 4261 | Qredisplay_end_trigger_hook = intern ("redisplay-end-trigger-hook"); | 4267 | Qredisplay_end_trigger_functions = intern ("redisplay-end-trigger-functions"); |
| 4262 | 4268 | ||
| 4263 | staticpro (&last_arrow_position); | 4269 | staticpro (&last_arrow_position); |
| 4264 | staticpro (&last_arrow_string); | 4270 | staticpro (&last_arrow_string); |