Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-72

Merge from emacs--cvs-trunk--0

Patches applied:

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-693
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-695
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-696
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-697
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-702
   Update from CVS

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-703
   Merge from gnus--rel--5.10

 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-704
 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-708
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-72
   Update from CVS

 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-73
   Merge from emacs--cvs-trunk--0

1 files changed, 83 insertions, 15 deletions

diff --git a/src/window.c b/src/window.c
index 976e2b505cf..3f8fa513619 100644
--- a/src/window.c
+++ b/src/window.c
@@ -241,7 +241,8 @@ make_window ()
   register struct window *p;
 
   p = allocate_window ();
-  XSETFASTINT (p->sequence_number, ++sequence_number);
+  ++sequence_number;
+  XSETFASTINT (p->sequence_number, sequence_number);
   XSETFASTINT (p->left_col, 0);
   XSETFASTINT (p->top_line, 0);
   XSETFASTINT (p->total_lines, 0);
@@ -2657,6 +2658,9 @@ shrink_windows (total, size, nchildren, shrinkable,
             --shrinkable;
             total_removed += smallest;
 
+            /* We don't know what the smallest is now.  */
+            smallest = total;
+
             /* Out of for, just remove one window at the time and
                check again if we have enough space.  */
             break;
@@ -2681,6 +2685,16 @@ shrink_windows (total, size, nchildren, shrinkable,
      that are left and still can be shrunk.  */
   while (total_shrink > total_removed)
     {
+      int nonzero_sizes = 0;
+      int nonzero_idx = -1;
+
+      for (i = 0; i < nchildren; ++i)
+        if (new_sizes[i] > 0)
+          {
+            ++nonzero_sizes;
+            nonzero_idx = i;
+          }
+      
       for (i = 0; i < nchildren; ++i)
         if (new_sizes[i] > min_size)
           {
@@ -2691,6 +2705,25 @@ shrink_windows (total, size, nchildren, shrinkable,
                check again if we have enough space.  */
             break;
           }
+
+
+      /* Special case, only one window left.  */
+      if (nonzero_sizes == 1)
+        break;
+    }
+
+  /* Any surplus due to rounding, we add to windows that are left.  */
+  while (total_shrink < total_removed)
+    {
+      for (i = 0; i < nchildren; ++i)
+        {
+          if (new_sizes[i] != 0 && total_shrink < total_removed)
+            {
+              ++new_sizes[i];
+              --total_removed;
+              break;
+            }
+        }
     }
 
   return new_sizes;
@@ -3117,7 +3150,8 @@ selects the buffer of the selected window before each command.  */)
   w = XWINDOW (window);
   w->frozen_window_start_p = 0;
 
-  XSETFASTINT (w->use_time, ++window_select_count);
+  ++window_select_count;
+  XSETFASTINT (w->use_time, window_select_count);
   if (EQ (window, selected_window))
     return window;
 
@@ -3608,7 +3642,8 @@ make_dummy_parent (window)
       = ((struct Lisp_Vector *)o)->contents[i];
   XSETWINDOW (new, p);
 
-  XSETFASTINT (p->sequence_number, ++sequence_number);
+  ++sequence_number;
+  XSETFASTINT (p->sequence_number, sequence_number);
 
   /* Put new into window structure in place of window */
   replace_window (window, new);
@@ -4506,7 +4541,7 @@ window_scroll_pixel_based (window, n, whole, noerror)
          results for variable height lines.  */
       init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID);
       it.current_y = it.last_visible_y;
-      move_it_vertically (&it, - window_box_height (w) / 2);
+      move_it_vertically_backward (&it, window_box_height (w) / 2);
 
       /* The function move_iterator_vertically may move over more than
          the specified y-distance.  If it->w is small, e.g. a
@@ -4516,7 +4551,7 @@ window_scroll_pixel_based (window, n, whole, noerror)
       if (it.current_y <= 0)
         {
           init_iterator (&it, w, PT, PT_BYTE, NULL, DEFAULT_FACE_ID);
-          move_it_vertically (&it, 0);
+          move_it_vertically_backward (&it, 0);
           it.current_y = 0;
         }
 
@@ -5185,7 +5220,7 @@ and redisplay normally--don't erase and redraw the frame.  */)
 
           SET_TEXT_POS (pt, PT, PT_BYTE);
           start_display (&it, w, pt);
-          move_it_vertically (&it, - window_box_height (w) / 2);
+          move_it_vertically_backward (&it, window_box_height (w) / 2);
           charpos = IT_CHARPOS (it);
           bytepos = IT_BYTEPOS (it);
         }
@@ -5193,29 +5228,62 @@ and redisplay normally--don't erase and redraw the frame.  */)
         {
           struct it it;
           struct text_pos pt;
-          int y0, y1, h, nlines;
+          int nlines = - XINT (arg);
+          int extra_line_spacing;
+          int h = window_box_height (w);
 
           SET_TEXT_POS (pt, PT, PT_BYTE);
           start_display (&it, w, pt);
-          y0 = it.current_y;
+
+          /* Be sure we have the exact height of the full line containing PT.  */
+          move_it_by_lines (&it, 0, 1);
 
           /* The amount of pixels we have to move back is the window
              height minus what's displayed in the line containing PT,
              and the lines below.  */
-          nlines = - XINT (arg) - 1;
+          it.current_y = 0;
+          it.vpos = 0;
           move_it_by_lines (&it, nlines, 1);
 
-          y1 = line_bottom_y (&it);
+          if (it.vpos == nlines)
+            h -= it.current_y;
+          else
+            {
+              /* Last line has no newline */
+              h -= line_bottom_y (&it);
+              it.vpos++;
+            }
+
+          /* Don't reserve space for extra line spacing of last line.  */
+          extra_line_spacing = it.max_extra_line_spacing;
 
           /* If we can't move down NLINES lines because we hit
              the end of the buffer, count in some empty lines.  */
           if (it.vpos < nlines)
-            y1 += (nlines - it.vpos) * FRAME_LINE_HEIGHT (it.f);
-
-          h = window_box_height (w) - (y1 - y0);
+            {
+              nlines -= it.vpos;
+              extra_line_spacing = it.extra_line_spacing;
+              h -= nlines * (FRAME_LINE_HEIGHT (it.f) + extra_line_spacing);
+            }
+          if (h <= 0)
+            return Qnil;
 
+          /* Now find the new top line (starting position) of the window.  */
           start_display (&it, w, pt);
-          move_it_vertically (&it, - h);
+          it.current_y = 0;
+          move_it_vertically_backward (&it, h);
+
+          /* If extra line spacing is present, we may move too far
+             back.  This causes the last line to be only partially
+             visible (which triggers redisplay to recenter that line
+             in the middle), so move forward.
+             But ignore extra line spacing on last line, as it is not
+             considered to be part of the visible height of the line.
+          */
+          h += extra_line_spacing;
+          while (-it.current_y > h)
+            move_it_by_lines (&it, 1, 1);
+
           charpos = IT_CHARPOS (it);
           bytepos = IT_BYTEPOS (it);
         }
@@ -5817,7 +5885,7 @@ save_window_save (window, vector, i)
       p = SAVED_WINDOW_N (vector, i);
       w = XWINDOW (window);
 
-      XSETFASTINT (w->temslot, i++);
+      XSETFASTINT (w->temslot, i); i++;
       p->window = window;
       p->buffer = w->buffer;
       p->left_col = w->left_col;