mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-02 10:11:05 -08:00
Code Issues Projects Releases Wiki Activity

(MIN_SAFE_WINDOW_HEIGHT): Value now 1.

Browse source
This commit is contained in:
Richard M. Stallman 2002-01-20 23:09:45 +00:00
parent 9c35d70676
commit dc1ab1eece
1 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/window.c
View file

@ -2118,7 +2118,7 @@ replace_buffer_in_all_windows (buffer)
might crash Emacs. */
#define MIN_SAFE_WINDOW_WIDTH (2)
#define MIN_SAFE_WINDOW_HEIGHT (2)
#define MIN_SAFE_WINDOW_HEIGHT (1)
/* Make sure that window_min_height and window_min_width are
not too small; if they are, set them to safe minima. */
@ -3547,17 +3547,29 @@ enlarge_window (window, delta, widthflag, preserve_before)
{
/* If trying to grow this window to or beyond size of the parent,
just delete all the sibling windows. */
Lisp_Object tem, next;
Lisp_Object start, tem, next;
tem = XWINDOW (parent)->vchild;
if (NILP (tem))
tem = XWINDOW (parent)->hchild;
start = XWINDOW (parent)->vchild;
if (NILP (start))
start = XWINDOW (parent)->hchild;
/* Delete any siblings that come after WINDOW. */
tem = XWINDOW (window)->next;
while (! NILP (tem))
{
next = XWINDOW (tem)->next;
if (!EQ (tem, window))
delete_window (tem);
delete_window (tem);
tem = next;
}
/* Delete any siblings that come after WINDOW.
Note that if START is not WINDOW, then WINDOW still
Fhas siblings, so WINDOW has not yet replaced its parent. */
tem = start;
while (! EQ (tem, window))
{
next = XWINDOW (tem)->next;
delete_window (tem);
tem = next;
}
}