Mercurial > emacs
comparison src/window.c @ 13457:8a1986b2cc76
(Fwindow_redisplay_end_trigger): New function.
(Fset_window_redisplay_end_trigger): Likewise.
(syms_of_window): defsubr them.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 10 Nov 1995 16:01:46 +0000 |
parents | 3b0b74c6aff7 |
children | 8ee401a7aeec |
comparison
equal
deleted
inserted
replaced
13456:b66f0626addb | 13457:8a1986b2cc76 |
---|---|
310 w = decode_window (window); | 310 w = decode_window (window); |
311 if (XINT (w->hscroll) != XINT (ncol)) | 311 if (XINT (w->hscroll) != XINT (ncol)) |
312 XBUFFER (w->buffer)->clip_changed = 1; /* Prevent redisplay shortcuts */ | 312 XBUFFER (w->buffer)->clip_changed = 1; /* Prevent redisplay shortcuts */ |
313 w->hscroll = ncol; | 313 w->hscroll = ncol; |
314 return ncol; | 314 return ncol; |
315 } | |
316 | |
317 DEFUN ("window-redisplay-end-trigger", Fwindow_redisplay_end_trigger, | |
318 Swindow_redisplay_end_trigger, 0, 1, 0, | |
319 "Return WINDOW's redisplay end trigger value.\n\ | |
320 See `set-window-redisplay-end-trigger' for more information.") | |
321 (window) | |
322 Lisp_Object window; | |
323 { | |
324 return decode_window (window)->redisplay_end_trigger; | |
325 } | |
326 | |
327 DEFUN ("set-window-redisplay-end-trigger", Fset_window_redisplay_end_trigger, | |
328 Sset_window_redisplay_end_trigger, 2, 2, 0, | |
329 "Set WINDOW's redisplay end trigger value to VALUE.\n\ | |
330 VALUE should be a buffer position (typically a marker) or nil.\n\ | |
331 If it is a buffer position, then if redisplay in WINDOW\n\ | |
332 reaches a position beyond VALUE, the normal hook\n\ | |
333 `redisplay-end-trigger-hook' is run (and then the end-trigger value\n\ | |
334 is reset to nil.") | |
335 (window, value) | |
336 register Lisp_Object window, value; | |
337 { | |
338 register struct window *w; | |
339 | |
340 w = decode_window (window); | |
341 w->redisplay_end_trigger = value; | |
342 return value; | |
315 } | 343 } |
316 | 344 |
317 DEFUN ("window-edges", Fwindow_edges, Swindow_edges, 0, 1, 0, | 345 DEFUN ("window-edges", Fwindow_edges, Swindow_edges, 0, 1, 0, |
318 "Return a list of the edge coordinates of WINDOW.\n\ | 346 "Return a list of the edge coordinates of WINDOW.\n\ |
319 \(LEFT TOP RIGHT BOTTOM), all relative to 0, 0 at top left corner of frame.\n\ | 347 \(LEFT TOP RIGHT BOTTOM), all relative to 0, 0 at top left corner of frame.\n\ |
3532 defsubr (&Swindow_buffer); | 3560 defsubr (&Swindow_buffer); |
3533 defsubr (&Swindow_height); | 3561 defsubr (&Swindow_height); |
3534 defsubr (&Swindow_width); | 3562 defsubr (&Swindow_width); |
3535 defsubr (&Swindow_hscroll); | 3563 defsubr (&Swindow_hscroll); |
3536 defsubr (&Sset_window_hscroll); | 3564 defsubr (&Sset_window_hscroll); |
3565 defsubr (&Swindow_redisplay_end_trigger); | |
3566 defsubr (&Sset_window_redisplay_end_trigger); | |
3537 defsubr (&Swindow_edges); | 3567 defsubr (&Swindow_edges); |
3538 defsubr (&Scoordinates_in_window_p); | 3568 defsubr (&Scoordinates_in_window_p); |
3539 defsubr (&Swindow_at); | 3569 defsubr (&Swindow_at); |
3540 defsubr (&Swindow_point); | 3570 defsubr (&Swindow_point); |
3541 defsubr (&Swindow_start); | 3571 defsubr (&Swindow_start); |