Mercurial > hg > xemacs-beta

comparison src/window.c @ 1279:cd0abfdb9e9d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-02-09 09:33:42 by ben] walk-windows, redisplay fixes console-stream.c: Abort when any attempts to output a stream console are made. Should be caught sooner. event-msw.c: Don't redisplay() during sizing when the frame has not yet been initialized completely. event-stream.c, menubar-msw.c, menubar-x.c, menubar.c, menubar.h: Restore in_menu_callback. Bind it in menubar-{msw,x}.c when calling filter functions and the like. Conditionalize on it, not in_modal_loop, when issuing error in `next-event', otherwise we bite the dust immediately -- event-msw.c purposely calls Fnext_event() in a modal loop, and knows what it's doing. redisplay-output.c: Formatting fixes. redisplay.c, window.c, winslots.h: Delete lots of carcasses of attempts to add redisplay support for font-lock -- `pre/post-redisplay-hook', unimplemented junk from FSF (redisplay-end-trigger, `window-scroll-functions', `window-size-change-functions'). If we want to port some redisplay support from FSF, port the `fontified' property. redisplay.c: Put in a check here (as well as redisplay_device()) for a stream frame. We can get here directly through Lisp fun `redisplay-frame'. Abort if frame not initialized. redisplay.c: Check for stream frames/devices. window.el: walk-windows was broken when a frame was given to WHICH-FRAMES. it would loop forever. The FSF version fixes this but i didn't sync to them because (a) it conses (bad for lazy-lock), (b) it calls select-window.
author ben
date Sun, 09 Feb 2003 09:33:48 +0000
parents 02cf044d5fce
children a19b0eb5dfc1
comparison
equal deleted inserted replaced
1278:1706fd7322af 1279:cd0abfdb9e9d
1736 if (w->hscroll != ncols) 1736 if (w->hscroll != ncols)
1737 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */ 1737 MARK_CLIP_CHANGED; /* FSF marks differently but we aren't FSF. */
1738 w->hscroll = ncols; 1738 w->hscroll = ncols;
1739 return ncol; 1739 return ncol;
1740 } 1740 }
1741
1742 #if 0 /* bogus FSF crock */
1743
1744 DEFUN ("window-redisplay-end-trigger",
1745 Fwindow_redisplay_end_trigger, 0, 1, 0, /*
1746 Return WINDOW's redisplay end trigger value.
1747 See `set-window-redisplay-end-trigger' for more information.
1748 */
1749 (window))
1750 {
1751 return decode_window (window)->redisplay_end_trigger;
1752 }
1753
1754 DEFUN ("set-window-redisplay-end-trigger",
1755 Fset_window_redisplay_end_trigger, 2, 2, 0, /*
1756 Set WINDOW's redisplay end trigger value to VALUE.
1757 VALUE should be a buffer position (typically a marker) or nil.
1758 If it is a buffer position, then if redisplay in WINDOW reaches a position
1759 beyond VALUE, the functions in `redisplay-end-trigger-functions' are called
1760 with two arguments: WINDOW, and the end trigger value.
1761 Afterwards the end-trigger value is reset to nil.
1762 */
1763 (window, value))
1764 {
1765 return (decode_window (window)->redisplay_end_trigger = value);
1766 }
1767
1768 #endif /* 0 */
1769 1741
1770 DEFUN ("window-pixel-edges", Fwindow_pixel_edges, 0, 1, 0, /* 1742 DEFUN ("window-pixel-edges", Fwindow_pixel_edges, 0, 1, 0, /*
1771 Return a list of the pixel edge coordinates of WINDOW. 1743 Return a list of the pixel edge coordinates of WINDOW.
1772 The returned list is of the form (LEFT TOP RIGHT BOTTOM), 1744 The returned list is of the form (LEFT TOP RIGHT BOTTOM),
1773 all relative to 0, 0 at the top left corner of WINDOW's frame. 1745 all relative to 0, 0 at the top left corner of WINDOW's frame.
5402 DEFSUBR (Fwindow_text_area_pixel_width); 5374 DEFSUBR (Fwindow_text_area_pixel_width);
5403 DEFSUBR (Fwindow_hscroll); 5375 DEFSUBR (Fwindow_hscroll);
5404 DEFSUBR (Fset_window_hscroll); 5376 DEFSUBR (Fset_window_hscroll);
5405 DEFSUBR (Fmodeline_hscroll); 5377 DEFSUBR (Fmodeline_hscroll);
5406 DEFSUBR (Fset_modeline_hscroll); 5378 DEFSUBR (Fset_modeline_hscroll);
5407 #if 0 /* bogus FSF crock */
5408 DEFSUBR (Fwindow_redisplay_end_trigger);
5409 DEFSUBR (Fset_window_redisplay_end_trigger);
5410 #endif
5411 DEFSUBR (Fwindow_pixel_edges); 5379 DEFSUBR (Fwindow_pixel_edges);
5412 DEFSUBR (Fwindow_text_area_pixel_edges); 5380 DEFSUBR (Fwindow_text_area_pixel_edges);
5413 DEFSUBR (Fwindow_point); 5381 DEFSUBR (Fwindow_point);
5414 DEFSUBR (Fwindow_start); 5382 DEFSUBR (Fwindow_start);
5415 DEFSUBR (Fwindow_end); 5383 DEFSUBR (Fwindow_end);