# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 770951556 0
# Node ID e1e536773850f4b1b0244ab940f45bc8b2ac1bf6
# Parent  1fa576a274b5e86ea8ff979a1dcf55eb0c064027
(Fframe_or_buffer_changed_p): Reuse the state vector.

diff -r 1fa576a274b5 -r e1e536773850 src/dispnew.c
--- a/src/dispnew.c	Mon Jun 06 09:22:14 1994 +0000
+++ b/src/dispnew.c	Tue Jun 07 01:12:36 1994 +0000
@@ -1858,7 +1858,7 @@
   current_frame->charstarts[vpos] = temp1;
 }
 
-/* A vector of size NFRAMES + 3 * NBUFFERS + 1, containing the session's
+/* A vector of size >= NFRAMES + 3 * NBUFFERS + 1, containing the session's
    frames, buffers, buffer-read-only flags, and buffer-modified-flags,
    and a trailing sentinel (so we don't need to add length checks).  */
 static Lisp_Object frame_and_buffer_state;
@@ -1897,7 +1897,10 @@
     n++;
   for (tail = Vbuffer_alist; CONSP (tail); tail = XCONS (tail)->cdr)
     n += 3;
-  frame_and_buffer_state = Fmake_vector (make_number (n), Qlambda);
+  /* Reallocate the vector if it's grown, or if it's shrunk a lot.  */
+  if (n > XVECTOR (frame_and_buffer_state)->size
+      || n < XVECTOR (frame_and_buffer_state)->size / 2)
+    frame_and_buffer_state = Fmake_vector (make_number (n), Qlambda);
   vecp = XVECTOR (frame_and_buffer_state)->contents;
   FOR_EACH_FRAME (tail, frame)
     *vecp++ = frame;
@@ -1908,6 +1911,9 @@
       *vecp++ = XBUFFER (buf)->read_only;
       *vecp++ = Fbuffer_modified_p (buf);
     }
+  /* If we left any slack in the vector, fill it up now.  */
+  for (; n < XVECTOR (frame_and_buffer_state)->size; ++n)
+    *vecp++ = Qlambda;
   return Qt;
 }